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PREFACE 


The B 1700 Data Management System II (DMSID) consists of the following three components: A Data 
And Structure Definition Language (DASDL) used to describe a data base, a COBOL interface providing 
programmatic access to the data in the data base, and the data access routines contained within the Master 
_ Control Program (MCP) that control data storage and retrieval. These three components form the nucleus 
of the B 1700 Data Management System II. — : , 


The information contained in this manual reflects System Software Release Mark V.0. 
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B 1700 System Software Operational Guide 1068731 
B 1700 Systems COBOL Reference Manual | 1057197 
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INTRODUCTION 


B 1700 DATA MANAGEMENT SYSTEM II (DMSIT) COMPONENTS 


An overview of the B 1700 DMSII, illustrating the operational flow of DASDL, the COBOL interface, and 
the data access routines within the MCP, is shown in figures 1 and 2. The descriptions referenced in 
figures 1 and 2 are described below. 


Reference Description 

A A DASDL source deck defining the logical and physical specifications of 
the data base. 

B The DASDL compiler. 

C The DATABASE/LIBRARY created by the DASDL compilation provides 
the COBOL compiler with compilation information. 

D The DASDL dictionary file created by the DASDL compilation containing 
all the structural characteristics of the data base. 

E The data base files created by the DASDL compiler at the time the 
INITIALIZE statement is encountered. 
The COBOL compiler. 

G | The created object-code file. 
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Figure 1. Simplified DMSII Compilation Process 
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Figure 2. Simplified DMSII Object Program Execution 
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DATA BASE ADMINISTRATOR 


DASDL is the programmatic tool used by a person(s), usually referred to as a Data Base Administrator 
(DBA). It is one of the functions of the DBA to describe a data base to the B 1700 Data Management 
System II. The overall design of the data base is the responsibility of the DBA and includes the following: 


a. Understanding the requirements of all users of the data base. 
b. Analyzing the various demands to be made on the system. 
c. Producing a data description capable of fulfilling the needs of all users of the system. 


The DBA must also determine which applications require maximum optimization in order to provide for 
overall efficiency. Because DASDL allows the flexibility of many alternative solutions to a given problem, 
the DBA is always in a position to monitor and optimize the uses of the data base. The DBA must be 
aware of all factors and once the system is designed, must be committed to tailoring its structures. 


Typically, the DBA produces a data base design by using the DASDL default options creating the data 

base structures. The DBA can then allow users to test the various applications. As experience is gained and 
the performance of the system is evaluated, the DBA can experiment with alternative solutions. The end 
result, therefore, reflects the decisions of the DBA in determining what is needed to produce the optimum 
usage of the data base for the entire organization rather than for any one application. 


The types of decisions the DBA makes are based on evaluation of the critical resources. For example, at 
the cost of increasing memory used at program execution and increasing secondary storage space, the DBA 
may decide that some data should be stored in more than one location so all related information can be 
retrieved with one access. The DBA may also decide that the sequencing requirements of one application 
are used so rarely that an additional set to maintain that ordering is not worthwhile. 


The DBA also evaluates the system requirements in terms of the structures and their physical parameters, 
depending on the needs of the installation. Initially, most questions relating to the physical parameters of 
the data base are less important than the logical structures required by the application programs. This 
makes the task of the DBA twofold: . 


a. Selecting structures based on their capabilities for supporting the logical requirements of the 
applications. 


b. Optimizing the performance of the structures selected. 
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1. SYNTAX SPECIFICATIONS AND CONVENTIONS 


SYNTAX SPECIFICATIONS 

The principal means of displaying COBOL and DASDL statements is the syntax diagram. The syntax 

diagram technique affords a concise method of syntax illustration involving default options, alternatives, 

and iterations. The basic rule is that any path traced along the forward directions of the arrows produces 
a syntactically valid expression. The following examples illustrate the syntax diagram techniques. 


Example 1: 


4 row THE aia nee DOWN : STREAM/ 
>YOUR [ 
THE+—-OLD MILL 


Valid statements from this example include: 
ROW THE BOAT DOWN-STREAM. 
ROW, ROW, ROW YOUR BOAT GENTLY DOWN THE STREAM. 
ROW, ROW, ROW, ROW THE BOAT DOWN THE OLD STREAM. 


ROW YOUR BOAT DOWN THE MILL STREAM. 
ROW THE BOAT DOWN THE OLD, MILL STREAM. 


Example 2: _ 


The following convention is used to control the number of iterations: 


ACROSS THE : : MISSOURI 


The bridge (_~\_ ) over the “‘1”’ can be crossed only one time in forming a valid expression. Thus, a 
maximum of one comma and two adjectives can appear in a statement of this type. Valid eo for 
this example include: 


ACROSS THE MISSOURI. 

ACROSS THE WIDE MISSOURI. 

ACROSS THE BIG, MUDDY MISSOURI. 
ACROSS THE MUDDY, WIDE MISSOURI. 
ACROSS THE BIG, BIG MISSOURI. 


Example 3: 


An asterisk (*) associated with a bridged number indicates that the path must Oe ChOsSEO at peat one time. 
By changing ee 2 to the following: 


ACROSS THE 


proper syntax 1s obtained By crossing the bridge at least one time. Valid expressions from this example 
include: 


ACROSS THE BIG, BIG MISSOURI. 
ACROSS THE BIG, BIG, BIG MISSOURI. 
ACROSS THE BIG, WIDE, MUDDY MISSOURI. 


SYNTAX CONVENTIONS 


DASDL and COBOL constructs consist of letters, digits, special characters, and blanks. Letters, digits, and 
hyphens are alphanumeric characters. All other non-blanks are delimiters. Alphanumeric characters can be 
ageregated into such syntactic items as integers, keywords, and identifiers. Keywords are reserved in 
DASDL and cannot be used in constructing identifiers. Rules and restrictions in construction of identifier 
names are identical to those for COBOL identifiers, except that no identifier can contain more than 17 
characters (for compatibility with B 6700/B 7700 series systems DMSII) and all identifiers within a data 
base must be unique. 


Keywords 


All alphanumeric items appearing in capital letters are keywords and are used literally. Abbreviations are 
not allowed. Example: POPULATION 


Blanks 
Blanks separate syntactic items and can appear freely anywhere except within certain text fields, where 
they are significant characters. Blanks are optional on either side of a delimiter. Whenever one alpha- 


numeric item, keyword, identifier, or integer, for example follows another with no intervening delimiter, 
it must be separated by at least one blank. 
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End-Of-Statement 
An end-of-statement is indicated by an arrow followed by a slash. Example: 
Syntactic Variables 
All alphanumeric items that are not keywords in the syntax diagrams are syntactic variables, and represent 
information to be supplied by the user. A particular variable can represent a single character, a simple con- 
struct such as an integer or text string, or a complex construct. Most variables are defined programmatically 
where they are to be used. 
~ BROKEN BRACKETS ( ) 
Left and right broken brackets containing letters, digits, or letters and digits represent a metalinguistic 
variable. When a metalinguistic variable appears in the text it is referring to its appearance in the syntax 
specification being discussed. 

identifier 
An identifier is a string of characters used to represent some entity, such as an item name composed of 
letters, digits, and hyphen. An identifier can vary in length from one through seventeen characters. The 
characters must be adjacent and the first character of an identifier must be a letter. 

integer 
An integer is specified by a string of adjacent digits representing the decimal value of the integer. 

delimiter 
A delimiter may generally be any non-alphanumeric character. The hyphen is excluded. 

literal 
A literal is a data item whose value is identical to the characters contained within the item. 


PERCENT SIGN (%) (DASDL Only) 


The percent sign is used to designate DASDL documentation or comments, and its presence terminates the 
scan of acard. The example below illustrates the usage of a percent sign for in-line coding. 


00000100 :%THIS DASDL PROGRAM GIVES EXAMPLES 
00000150 :%OF THE VARIOUS CONSTRUCTS USED IN 
00000200 :%DASDL TO DESCRIBE A DATA BASE. 
00000300 :PARAMETERS( 

00000400 _ : BUFFERS = 10 ); 
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2. DMSII STRUCTURE TYPES 


INTRODUCTION 


A data base is constructed by a DASDL compilation. The contents and format of the data base are usually 
the responsibility of the Data Base Administrator (DBA). The DASDL compiler, using a description of the 
data base (DASDL source statements), produces a data base dictionary file containing information about 
each structure described within the data base. 


Data base structures are either disjoint or embedded. A disjoint structure is free standing. A structure is 
considered embedded when it is declared as an item within some other structure. A structure can be one of 
three types: data set, set, or subset. 


DATA SET STRUCTURES 


A data set is similar to a conventional file in that it contains the actual records of information. However, 
it is different from a conventional file in that items within the record may themselves be structures, in 
which case, these items are considered as embedded structures. A record of a data set which contains an 
embedded structure is referred to as the owner record of the embedded structure. If the embedded 
structure is a data set, a record of the embedded data set is considered a detail record of the master. The 
DBA defines a data set, the items, and their attributes that form data set records, and also the physical 
organization of these records. The application programmer must be aware of these record items and 
attributes prior to accessing a data base. Knowledge of the physical organization of the data base is not 
required in order to access the data base. 


Set and Subset Structures 


Sets and subsets are structures organizing the records of a data set into some logical sequence. A set pro- 
vides access to all of the records of a data set. A subset provides access to a limited collection of records of 
the data set. Since several sets or subsets can exist for the same data set, the same data can be accessed in 
several different sequences. For example, given a data set containing employee records, one set could order 
the data ascending order by the last name and another set could order the data in descending order by em- 
ployee number. Those data items of a data record that are used to control the ordering of a set or subset 
are known as the key of the set or subset. 


There are two methods of accessing a data set through a set or subset. The first method, accessing of 
records based on the value of key fields, is called the random access method. An example of the random 
access syntax 1s: 


FIND UNIV-COURSES VIA UNIV-C-SET AT CRS-NO = 1234 


The second method, accessing of records sequentially based on the value of the key fields, is the serial 
access method. An example of the serial access syntax is: 


FIND UNIV-COURSES VIA NEXT UNIV-C-SET 


Records may also be accessed based on the physical ordering of the records within the data set. The physical 
ordering may or may not correspond to the order in which the records were created. An example of access 
based on the physical ordering of a data set is: 


FIND NEXT UNIV-COURSES 
Automatic Sets 


All sets are automatic in that as new records are stored, the system automatically creates entries in the set 
for those new records of the data set. Deleting records from a data set also automatically removes the entry 
from the set. Sets can be either embedded or disjoint structures. 


Automatic Subsets. 


Subsets can be manual or automatic. Automatic subsets specify a condition for membership in the subset; 
the condition is checked each time a record is to be added to the data set. If the condition is met, the sys- 
tem automatically creates an entry in the subset. Those data records that meet the condition can be 
accessed by the automatic subset. Deleting a record from the data set removes the entry from the auto- 
matic subset if the subset entry exists. During an update, the condition is checked and the subset entry can 
be created or deleted. Automatic subsets can be disjoint structures only. 


Manual Subsets 


A manual subset requires the application program to insert the record in the manual subset after creating 
and storing a record in a data set. This requirement establishes an entry in the manual subset for the 
record in the data set. When deleting a record, it is necessary for the application program to remove the 
entry from the manual subset prior to deleting the record from the data set. Manual subsets can be 
embedded structures only. 


STRUCTURE TYPES 
Some examples of the structure types that form a data base are illustrated in the following text. 
Data Set With No Sets 


A data set with no sets might be illustrated using a payroll application, in which every record in the data set 
is accessed during the processing of the payroll program. 


Coding Example: 
PAYROLL DATA SET 
(. 
. (data set items) 


), POPULATION = 1000; 


Physical Structure: 


Records of PAYROLL 


DATA SET PAYROLL 
Record Access: 
a. New records are stored in the first available location. 
b. The records can be accessed based on the physical ordering of the data set. For example: 
FIND FIRST, FIND NEXT... 


oe Records cannot be accessed based on data values. 
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Data Set With Ordered Set 

A data set with an ordered set could be used for an employee file with the last name as the key. The entire 
data set could be accessed through the set in alphabetical order by using the last name as the key, or any 
individual record could be accessed by using the last name of the individual as the key. 


Coding Example: 


EMPLOYEE DATA SET 
(LAST-NAME... 


)POPULATION = 1000; | 
L-NAME ORDERED SET OF EMPLOYEE (LAST-NAME): 


Physical Structure: 


Records of EMPLOYEE 


INDEX TABLE 
OF ORDERED 


Bein ane DATA SET EMPLOYEE 


Record Access: 
a. Records can be accessed ated on the physical ordering of the data set. For example: 
FIND NEXT EMPLOYEE 
b. Records can be accessed based i the ordering sequence of the set. For example: 
FIND EMPLOYEE VIA NEXT L-NAME 
c. Records can be accessed based on the data value of a key. For example: 


FIND EMPLOYEE VIA L-NAME AT LAST-NAME = “JONES” 


Data Set With Embedded Data Set (No Sets) 


A data set with an embedded data set could be used for an employee file in which an embedded data set 
was used to account for each of the employee’s dependents. 


Coding Example: 
EMPLOYEE DATA SET 
(. 
DEPENDENT UNORDERED DATA SET 
(. 
) POPULATION = 10 
) POPULATION = 1000: 


Physical Structure: 


Records of DEPENDENT 


DATA SET EMPLOYEE 


DATA SET DEPENDENT 
Record Access: 


a. Records of data set DEPENDENT can be accessed based on the physical ordering of the embed- 
ded data set. For example: 


FIND NEXT DEPENDENT 


b. There must be a valid EMPLOYEE current record in order to access a DEPENDENT record. 


Data Set With Embedded Data Set And Ordering Set 


This data structure could be used with the employee file as the data set and the a job history as the 
embedded data set ordered by the job position. 


Coding Example: 
EMPLOYEE DATA SET 
(. 


JOB-HISTORY ORDERED DATA SET 
(POSITION ALPHA (20) 


), POPULATION = 10: 
JOB-POSITION ACCESS TO JOB-HISTORY KEY (POSITION) 
), POPULATION = 1000: 


\ 
Physical Structure: 


DATA SET EMPLOYEE 


DATA SET JOB-HISTORY 
Record Access: 


a. Records of data set JOB-HISTORY can be accessed based on me ordering Bed eue of JOB- 
POSITION. For example: 


FIND JOB-HISTORY VIA NEXT JOB-POSITION 


b. 


C. 


Records can be accessed based on the data values of the key. For example: 
FIND JOB-HISTORY VIA JOB-POSITION AT POSITION = SYSTEMS-ANALYST 


There must be a valid EMPLOYEE current record to access any JOB-HISTORY record. 


Data Set With No Ordering Set, Retrieval Set, and Automatic Subset — 
_ A data set with a retrieval set could be used with an employee file so that given a title and department the 
record for the employee who holds that position could be accessed. An automatic subset provides access 
to all the records of exempt employees. | | | 
Coding Example: 
EMPLOYEE DATA SET 
(TITLE... 
DEPARTMENT ... 


EXEMPT-STATUS 
NAME 


), POPULATION = 1000; 
POSITION RETRIEVAL SET OF EMPLOYEE KEY (TITLE,DEPARTMENT) DUPLICATES; 
EXEMPT SUBSET OF EMPLOYEE WHERE (EXEMPT-STATUS = 1) KEY IS (NAME) : 


Physical Structure: 


DATA SET EMPLOYEE 


AUTOMATIC 
SUBSET EXEMPT 


Record Access: 
a. Records can be accessed based on the physical ordering of the data set. For example: 
FIND NEXT EMPLOYEE 
b. Records oe be accessed based on the value of a retrieval key. For example: | 


FIND EMPLOYEE VIA POSITION AT TITLE = SECRETARY AND DEPARTMENT = 
SYSTEMS-PROGRAMMING : 
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Records that satisfy the automatic subset condition can be accessed based on the physical order- 
ing of the automatic subset. For example: 


FIND EMPLOYEE VIA NEXT EXEMPT 


Records that satisfy the automatic subset condition can be accessed based on the value of the 
subset key. For example: 


FIND EMPLOYEE VIA EXEMPT AT NAME = ‘JOE DOE" 


Data Set With Multiple Ordered Sets and One Retrieval Set 


This data set soit be an employee file ordered by name and employee number and retrieved - title and 
department. | 


Coding Example: 


EMPLOYEE DATA SET 
(FIRSTNAME . . 
LASTNAME 
EMPLOYEESNO . 
TITLE... 
DEPARTMENT... 


),POPULATION = - 4000: 

NAME ORDERED SET OF EMPLOYEE KEY (LASTNAME, F IRSTNAME); 
EMP-NO ORDERED SET OF EMPLOYEE KEY (EMPLOYEE-NO); 
POSITION RETRIEVAL SET OF EMPLOYEE KEY (TITLE, DEPARTMENT); 


Physical Structure: 


4 BAKER 4250 


ORDERED 


SET NAME > JOHNSON 6184 
ny : A MASON 3621 


ORDERED SET 
EMPLOYEE NO. 


I SMITH 2542 | 


DATA SET EMPLOYEE 


RETRIEVAL 
SET POSITION 


Record Access: 
a. Records can be accessed based on the physical ordering of the data set. For example: 
FIND NEXT EMPLOYEE 
b. Records can be accessed based on any ordering sequence. For example: 
FIND EMPLOYEE VIA NEXT EMPLOYEE-NO 


The order however, is based on the values within the records, not the physical order of the 
records. 


c. Records can be accessed based on data values of the order key. For example: 


FIND EMPLOYEE VIA NAME AT LASTNAME = “SMITH” AN 
FIRSTNAME = “JOHN” | 


d. Records can be accessed based on data value of a retrieval key. For example: 


FIND EMPLOYEE VIA POSITION AT TITLE = MANAGER 
AND DEPARTMENT = FINANCE 


Two Data mes One Referring To A Manual Subset of The Other With No Key 


This data structure could represent the ceiationchie between departments and employees, with each 
department having a manual subset referencing all the employees of that department. 


Coding Example: 
DEPARTMENT DATA SET 
(. | 
DEPT-EMPLOYEES SUBSET OF EMPLOYEES ~ 


), POPULATION = 10: 
EMPLOYEES DATA SET 
(QC 


), POPULATION = 1000; 
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Physical Structure: 


|S) 

> 

poe 

> 

WN 

tT) 

= 

Ss) 

ey) 

> 

v2) 

J 

= 

tT — 
| | 
po] 


SUBSET DEPT-EMPLOYEES 
Record Access: 


a. Records of data set EMPLOYEES can be accessed based on the physical ordering of a subset for 
a data set: For example: 


FIND EMPLOYEES VIA NEXT DEPT-EMPLOYEES 


b. Records of data set EMPLOYEES can be accessed by the physical ordering of the data set. For 
example: 


FIND NEXT DEPARTMENT 


Two Data Sets Each Referencing A Subset Of The Other 


The preceding example could be expanded to order the employees within a department by their last name. 


Also there could be a manual subset within a record of data sett EMPLOYEES referencing the depart- 
ment in which the employee works. | | | 


Coding Example: 


DEPARTMENT DATA SET 
(. 


‘DEPT-EMPLOYEES SUBSET OF EMPLOYEES KEY mnndaakd 
), POPULATION = 10; 


EMPLOYEES DATA SET 
(LASTNAME ... 


EMP-DEPT SUBSET OF DEPARTMENT 
), POPULATION = 1000: 


SI—-¢c 


DATA SET 
DEPARTMENT 


Le 
eT) Ce Ce 
SUBSET 
EMP-DEPT 
SUBSET 
DEPT- 
EMPLOYEES 


NOTE: EACH EMPLOYEE WORKS 
IN ONE DEPARTMENT ONLY. 


y 
G 


DATA SET EMPLOYEES 


SaINjONIZS [eoisAUg 


Record Access: 


a. The records of data set EMPLOYEES can be accessed based on the physical ordering of a sub- 
set of a data set. For example: | | 


FIND EMPLOYEES VIA NEXT DEPT-EMPLOYEES 


b. The records of dataset DEPARTMENT can be accessed based on the data value of a ordered key 
of the subset. For example: | 


FIND EMPLOYEES VIA DEPT-EMPLOYEES AT LASTNAME = “JONES” 


c. Records of data set DEPARTMENT can be accessed based on the physical ordering of the data 
set. For example: 


FIND FIRST DEPARTMENT 


d. A master data set must have a current record to access its subset. 


3. DATA AND STRUCTURE DEFINITION LANGUAGE (DASDL) 


DATA BASE DESCRIPTION 

A data base is described to the system by means of a DASDL compilation. Data sets, sets, and subsets 
constitute the data base. Appendix A contains specific information on the DASDL compilation procedure. 
This section describes the components and the structuring of a data base. 


Data Base Syntax 


ble senibb att Reeessciuinonenacacincdigons 


(parameters ) (disjoint-set ) 
(subset \ 


‘ physical-description ) { initialize-statement 


Parameters: 


PARAMETERS —————> ( BUFFERS = (integer) ) ; ———————»/ 


Initialize Statement: 


INITIALIZE |; —— 


Semantics: 


a. Datasets and sets on the outermost level of the description are disjoint data sets, and disjoint 
sets. A data base must contain at least one disjoint data set. 


b. A data set description provides for specification of the logical structure of a file. 


c. Set and subset descriptions provide logical specifications of indexes or index tables (paths) that 
are used in storage and retrieval of data contained in a data set. 


d. The BUFFERS statement defines the optimum number of data buffers the system should try to 
utilize. The system adjusts dynamically to handle peak volumes of DMSII operations. By de- 
fault, the system will utilize 10 buffers. The range can be from 3 to 100. 


e. The INITIALIZE statement causes the DMSII files to be initialized by DASDL, and must be 
performed before there can be any access to a data base. INITIALIZE must be the last statement 
in the DASDL source deck. 


f. Subset and set specifications cannot precede the specification of the data set that they reference. 
DISJOINT DATA SET 


A data set consists of a collection of records that constitute a data set. All records in a data set are struc- 
tured alike, with only the values of the data items differing. Describing the data set is ce, aac by 
describing the data items within the records of the data set. | 


The data structure in a data set definition are represented in a COBOL-like format. Disjoint data sets 
appear on the outermost level of the description and are referred to as level 1. All data items contained i in 
a data set are assigned a level that is one greater than that of the data set itself. All items of a group item 
are assigned a level that is one greater than that of the group item itself. DASDL represents data structures 
by the use of parentheses, with each set of parentheses representing a level. 


VERIFY and REQUIRED ALL 


The VERIFY condition and the REQUIRED ALL statement provide the mechanism for specifying the 
minimum criteria that a record must meet prior to its being stored in a data base. These specifications are 
checked for each record to be stored. The REQUIRED ALL statement specifies that all applicable items 
must be assigned a non-null value (where “‘null’’ is defined as all bits on). The VERIFY condition provides 
the specifications for complex comparisons and operations in determining the validity of a data record. 


Syntax 


—» (disjoint-data-set-identifier) DATA SET TL. to. FF 
| =“ (comment) ”—1 le REQUIREDALL — _ 


- (group-item ) 
(data-item ) 
‘embedded-data-set 

< embedded-set ) 
(subset). 


: \ POPULATION = -, integer) 
= 1 > VERIFY (condition) — 


SEMANTICS 


d. 


DASDL recognizes five item types as valid components of disjoint data set record descriptions: 
1. Embedded data set. 

2. Embedded set. 

3. Subset. 

4. Group item. 

5. Data item. 


This record description of a disjoint data set specifies the format of a record of a data set. These 
records are stored in a physical file. 


The record of a data set containing an embedded data set is referred to as being the “‘owner”’ of 
the records of the embedded data set. 


The records of an embedded data set are referred to as members of its disjoint data set. 


A disjoint set relates only to a disjoint data set. An embedded set and the embedded data set to 
which it relates must be on the same level description. 


Files for the data sets and tables built for sets, if there are keys, use the POPULATION statement 
as a guide for area size for files and table size unless other specifications are given in the physical 
description. 


The quoted comment (“‘comment...’’), having a limit of 172 characters, provides a facility for 
inclusion of descriptive information in the data set. Continuation of quoted character strings 
across card boundaries requires a quote at the beginning of subsequent cards. 


The REQUIRED ALL statement, if present, is equivalent to the REQUIRED statement on all 
items of the data set in that for each data item defined in the data set a value must be present for 
the record to be stored. , 


The VERIFY condition specifies a certain condition to be satisfied by the items of a record in 
order for it to be stored in a data set. If the condition is not met, the record will not be stored. 
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Example: 


The following example contains the usage of a disjoint data set. 


00005400 


‘MSF DATA SET( DISJOINT DATA SET 
00005500 : | SSNO NUMBER(9); 
00005600 NONAM NUMBER(1); 
00005700 LNAME ALPHA(30); DATA ITEMS 
00005800 MNAME ALPHA(30); - 
00005900 FNAME ALPHA(30); 
~ 00006000 CAMPUS-ADDRESS GROUP( —- GROUP ITEM 
00006100 DORM ALPHA(6): 
00006200 ROOM NUMBER(4); DATA ITEMS 
00006300 POROX NUMBER(4); 
00006400 PHONE NUMBER(7)); 
00006500 ND NUMBER(2); 
00006600 DEGREE ALPHA(4) OCCURS 6 TIMES; 
00006700 TOTHRS NUMBER(3); 
00006800 TOTQP NUMBER(3): 
00006900 GRADE-POINT-AVG NUMBER(3,2); 
00007000 MJR NUMBER(3): 
00007100 AMJR ALPHA(18); 
00007200 SSEX NUMBER(1); 
00007300 SAGE NUMBER(2); 
00007400 HOME-ADDRESS SUBSET OF ADR; MANUAL SUBSET 
00007500 QUARTER — ORDERED DATA SET( 
00007600 QTR ALPHA(4); | 
00007700 QTTRHRS NUMBER(2); 
00007800 QTROQP NUMBER(2): 
00007900 CORSES ORDERED DATA SET( 
00008000 } TYPECOURSE NUMBER(1); 
00008100 YR NUMBER(2): 
00008200 QNUMBER(2); EMBEDDED 
00008300 GCRS SUBSET OF UNIV-COURSES; DATA SET 
00008400 GGD ALPHA(2);_ 
00008500 TITLE-OF-PAPER ALPHA(30); 
00008600 PPRGD ALPHA(2)); 
00008700 POPULATION = 4; 
00008800 CSET ACCESS TO CORSES KEY IS auecDDED 
00008850 (TYPECOURSE) DUPLICATES) ane 
00009000 POPULATION = 5000; __ 
00009100 QSEY ACCESS TO QUARTER KEY IS (QTR)); 
00009200 MSFSET ORDERED SET OF MSF KEY IS (SSNO); DISJOINT SET 


RECORD DESCRIPTION 


The five item types comprising the record description of a disjoint data set are the embedded data set, 
embedded set, subset, group item, and the dataitem. All items comprising the record description are 
separated by semicolons. 


Data Item 


Each data item in the record is described by an identifier, an optional description, and its data type. A data 
item can also have an occurrence (OCCURS) specification or a REQUIRED specification requiring the data 
item to be assigned a non-null value prior to its storage in the data set. 


Syntax 
\ 


—————> (data-item-identifier ) : 
LS “ “comment ) ” | | 


OCCURS (integer) TIMES 
REQUIRED 


ALPHA ( (integer) ) 
7 os 
NUMBER pine ee, 
S 
Semantics 


a. Comments enclosed within quotation marks are used for documentation and are stored in the 
dictionary file, but comments following the percent sign (%) are not stored. 


b. The ALPHA specification handles strings of alphabetic characters, special characters, or digits. 
The size of the data item (the number of characters the data item can hold) is specified by an 
integer, enclosed within parentheses. 


c. The NUMBER specification handles signed and unsigned numeric fields, either decimal or 
integer. The maximum size of a NUMBER statement is 23 unsigned digits or 22 signed digits 
when not a KEY item; and 12 unsigned digits or 11 signed digits when NUMBER is a KEY item. 


d. When two integers are used to specify the size of a NUMBER item, the integer to the left of the 
comma specifies the total field width; the integer to the right of the comma is the number of 
digits after an implied decimal point. 


e. The OCCURS clause of DASDL is identical to the COBOL OCCURS clause. The item must be 
subscripted when used. A maximum of three levels of subscripting is allowed. The number of 
occurrences is limited to 1023. 


f. The maximum record size is 8192 characters. 
Required items must be present and be non-null to be stored. The REQUIRED ALL option for 


a data set makes all items REQUIRED except those for which the REQUIRED statement is an 
invalid option. 


ga 


h. The REQUIRED statement cannot be specified for any items appearing within the scope of an 
OCCURS clause. The REQUIRED ALL statement of a data set does not make an occurring 
type item required. 


i. COBOL requires that all ALPHA and GROUP items start on byte boundaries. In order to satisfy 
this requirement, one-digit fillers are inserted, where necessary, with a warning message given. 


Example: 


The following example illustrates a record description. 


00006500 : | ND._NUMBER(2) ; 
00006600 _ : DEGREE ALPHA(4) OCCURS 6 TIMES; 
00006700 : | TOTHRS NUMBER(3); = : 
00005800 : TOTQP NUMBER(3) ; 
00006900: GRADE-POINT-AVG NUMBER(3,2) ; 
00007000 : | MJR NUMBER(3) ; 
00007100 : AMJR ALPHA(18) ; 
00007200 _ : SSEX NUMBER(1) ; 
00007300 : SAGE NUMBER(2) ; 

Group Item 


Group items are used to establish hierarchical relationships within one record in the same manner that 
COBOL uses level numbers. Each group item in the record is described by an identifier followed by the 
word GROUP, an optional OCCURS or REQUIRED clause, and a list of data items or group items in any 
combination. | | 


Syntax 


———> (group-item-identifier) GROUP 


OCCURS < integer) TIMES 
REQUIRED 


ee ( ¢ courien)—— 1__. ) —_———>/ 
| | (data-item ) 


Semantics 


a. Group items are items that themselves contain items. Items within a group are declared at a 
level that is one greater than the level of the group. 


b. Items that belong to groups are restricted to data items and further group items. Data sets, sets, 
and subsets are not allowed as items within a group. 


c. The optional OCCURS clause can be nested to three levels. Each occurrence has a limit of 1023 
times. 


d. Group items can be REQUIRED if the group item does not appear within the scope of an 
OCCURS clause. The effect of this is to make all items within the GROUP required (REQUIRED) 
except those items for which the option is invalid. 


Example: 


The following example illustrates usage of both a group item and the OCCURS clause. 


Level 1 GRPA GROUP OCCURS 3 TIMES ( 
DATAI1 ALPHA (10) OCCURS 2 TIMES; 
Level 2 DATA2 NUMBER (4) OCCURS 10 TIMES; 


GRPB GROUP OCCURS 4 TIMES ( 
DATA3 ALPHA (5) OCCURS 3 TIMES: 
Level 3 DATA4 NUMBER (5) OCCURS 3 TIMES: 
GRPC GROUP OCCURS 5 TIMES ( 
DATAS ALPHA (10); 
ee DATA6 NUMBER (10)))): 


Embedded Data Set 


An item within a data set can itself be a data set; and is referred to as an embedded data set. A data set is 
used as an item in a data set when it is desired to establish a hierarchical relationship between different 
types of records. The VERIFY condition and the REQUIRED ALL statements are the mechanism for 
specifying the minimum criteria that a record must meet prior to its being stored in a data base. These 
specifications are checked for each record to be stored. The REQUIRED ALL statement specifies that all 
applicable items must be assigned a non-null value. The VERIFY condition provides the specifications for 
complex comparisons in determining the validity of a data record. 


Syntax 


— ¢ embedded-data-set-identifier ) To ORDERED OE Dc SET Le. ..4% 
UNORDERED “ “comment ) ” 


2 es ( 
REQUIRED 


(group-item) 


(data-item ) POPULATION = (integer) 


ALL ‘embedded-data-set , | > VERIFY (condition) 
‘embedded-set \ 
(subset) 
Semantics 


a. Itis mandatory that the outer level data sets have current records established before lower levels 
of the structure can be accessed. 


b. Either an ORDERED or UNORDERED statement must be specified for an embedded data set. 


1. The ORDERED statement indicates that the data records are to be maintained in sequence. 
There must be exactly one embedded set declaration for an ordered embedded data set. 
This declaration specifies the sequence for this data set. 


2. The UNORDERED statement indicates that the system assigns the sequence to the records. 
No sets are then allowed. 


c. Whena POPULATION statement is specified for an embedded data set, it indicates the number 
records per owner. That value is multiplied by the population of the disjoint data set for space 
allocation. This calculation indicates that the POPULATION specification for the embedded data 
set should be the average population, rather than the maximum. 


d. The REQUIRED ALL statement, if present, is equivalent to specifying the REQUIRED statement 
- for each data item in the data set for which REQUIRED is valid. A value must be present for 
each of these data items before the record can be stored. 


e. The VERIFY condition specifies a certain condition to be satisfied by the items of a potential 
record to be stored in a data set. If the condition is not satisfied, the record will not be stored. 


Example: 
00002600 _ : BOOKS UNORDERED DATA SET( UNORDERED EMBEDDED 
00002700 _ : LC NUMBER(9); DATA SET 
000023800: TITLES ALPHA(60); 
00002900 _ : -~  AUTHR ALPHA (30)); 
00003000: STUDENTS SUBSET OF MSF KEY IS 
00003100 : (LNAME,FNAME) DUPLICATES, 
00003200 : POPULATION = 300) 
00007900: CORSES ORDERED DATA SET( ORDERED EMBEDDED 
00008000 _ : -TYPECOURSE es DATA SET 
00008100 YR NUMBER(2); 
00008200 Q NUMBER(2); AND 
00008300 GCRS SUBSET OF UNIV-COURSES; 
00008400 ~GGD ALPHA(2); | EMBEDDED SET 
00008500 TITLE-OF-PAPER ALPHA(30); 
00008600 PPRGD ALPHA(2)), 
00008700 POPULATION = 4; 
00008800 CSET ACCESS TO CORSES KEY IS 


(TYPECOURSE) DUPLICATES) 
Embedded Set 
Embedded sets are used to establish a path of access to embedded, ordered data sets. The embedded set, 
based on the key value, provides either serial access to all the records of the data set, or random access to a 
specific record also based on the key value. For embedded, unordered data sets, the only access to the data 


is based on the physical ordering of the records. 


_ Syntax 


—_——»> ‘embedded-set-identifier) ACCESSTO (embedded-data-set-identifier ) (key-structure) ———»/ 


Semantics 


a. The embedded set provides the ability to maintain a logical order for an embedded ordered data 
set rather than the physical order associated with an embedded unordered data set. 


b. One set only, must be declared for each embedded ordered data set. The ACCESS TO declaration 
_ is required and must be specified only in this instance. This declaration indicates the establish- 
ment of a path, but does not establish physical index tables. (The records are kept in order.) 


c. The embedded set and the embedded data set to which it refers must be on the same level. 


d. Dataitems of the key-structure cannot be modified after the record has been stored in the data 
base. For further information on key-structures, see DISJOINT SET in this Section. 


Example: 
00007900 : CORSES ORDERED DATA SET( 
00008000: TYPECOURSE NUMBER(1); 
00008100 : YR NUMBER(2); 
00008200 : Q NUMBER(2); | 
00008300 _ : GCRS SUBSET OF UNIV-COURSES; 
00008400: GGD ALPHA(2); 
00008500 _ : TITLE-OF-PAPER ALPHA(30); 
00008600: PPRGU ALPHA(2)), 
00008700: POPULATION = 4; 
00008800: CSET ACCESS TO CORSES KEY IS 
00008850: (TYPECOURSE) DUPLICATES) 
Subset 


A subset is a path to some of the records of a data set. A subset is not used for holding data values, but 
rather it provides a method of accessing some of the records of a disjoint data set. 


There are two types of subsets, manual and automatic. The manual subset is maintained by the user. It 
establishes inter-record relationship by providing a method of accessing some of the records of a disjoint 
data set from records of another data set. The automatic subset is maintained by the system and provides 
access to records of the disjoint data set which satisfy the condition specified in a WHERE clause. 


Syntax 


—_________» (subset-identifier)) SUBSET OF  disjoint-data-set-identifier ) a eee 


WHERE (condition) > POPULATION = (integer ) 
( key-structure ) 


Semantics 
a. Any subset containing a WHERE clause is an automatic subset. 


b. Manual subsets are usually used when the data related to the record is not unique for that record, 
or when independent access to the related data is required. 


c: Manual subsets must be declared as embedded structures. The data set referenced must be a 
disjoint data set. 


d. Manual subsets can have a key-structure. If specified, the key-structure provides serial access 
based on the key value or random access of a specific record (also based on the key value). 


e. Neither the OCCURS clause nor the REQUIRED clause can appear in a subset. 
oa Automatic subsets can only be declared as disjoint structures. 


g. Automatic subsets must have a key structure, which provides for serial access based on the key 
value or random access of a specific record (also based on the key value). 


h. For further information concerning key structure, see DISJOINT DATA SET in this section. 
Example: 


00000600 :UNIV-COURSES DATA SET “MAIN FILE” ( 


00002500 : PROFESSOR SUBSET OF UNIV-PERSONNEL, POPULATION = 3: 
00003900 :UNIV-PERSONNEL DATA SET( , 
00004900. : COURSES SUBSET OF UNIV-COURSES, POPULATION = 8: 


The manual subsets in the above example allow access to the professors who teach a particular course and 
access to the courses taught by a particular professor. Each professor record could reference all of the 
courses for it and each course record could reference all the professors for it without any redundancy of 
data stored. a | 7 


DISJOINT SET 


The use of any set implies the existence of a key. For disjoint data sets, keys can be associated with either 
an ordered or retrieval disjoint set. 


Syntax 
—» (disjoint-set-identifier ) [os coe (disjoint-data-set-identifier)  (key-structure) — ; —~/ 
anaes 
SET OF 
Semantics 


a. The use of an ORDERED set allows serial access based on the key or random access of a specific 
record (also based on the key value). The items within the key structure of an ORDERED set 
specify the control from left to right. 


b. If only random access is desired and serial access on the key value if not necessary, a RETRIEVAL 
set is used rather than an ORDERED set. 


c. The DESCENDING clause of the key structure must not be used for items in the key structure 
of a RETRIEVAL set. 


d. If DUPLICATES is not specified in the key structure, the data items of the key structure must 
not be modified after the record has been stored in the data base. 


Example: 
00005200: SS-U-P ORDERED SET OF UNIV-PERSONNEL KEY IS (SSNUM); 
00005300: U-P-SET ORDERED SET OF UNIV-PERSONNEL KEY IS 
00005350 _ : (LASTNAME,FIRSTNAME) DUPLICATES; 


Key Structure 


The key structure allows the user to identify data items in a data record for which access by a data item 
value is required. 


Syntax 


b) 


(data-item-identifier ) 
‘group-item-identifier) 


—— ) | ee mcd 
IS DUPLICATES 


Semantics 
a. The key structure consists of a single data item or the concatenation of multiple items. 


b. Ifa group item is used as an item in a key-structure, the COBOL syntax for the random access of 
a record using that key requires that all the elementary data items of the group be used. The use 
of a group item in DASDL ane documentation clarity. 


c. Each data-item-identifier or sesupeoatienane: following a KEY specification must refer toa 
data item or group item of the data set which the set or subset references. 
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d. To provide flexibility of serial access, each data item may be specified as ASCENDING or 
DESCENDING. This does not affect random access, and is not allowed on retrieval sets. If 
neither ASCENDING nor DESCENDING is specified, ASCENDING is assumed by default. 

e. Duplicates are records with identical key values. The DUPLICATES option indicates that 
multiple instances of a key with the same value are allowed. For example, a key NAME normally 
would allow many John Smiths, but a key of SSUM would not allow any eupMcatS: A special 
syntax is provided in COBOL to allow only the retrieval of duplicates. 

f. If DUPLICATES is not declared, the key-structure is considered unique. 

CONDITION 


A condition expression has two uses: 


a. Specifying criteria which must be satisfied by a record prior to storage in a data set (VERIFY 
clause). 


b. Specifying the condition for inclusion of arecord as a member of an automatic subset (WHERE 
clause). 


(simple-condition ) — 


ed 4 
- ( —» (simple-condition ) —» ) 
<complex-condition » 


( —>(complex-condition) —~ ) 


(simple-condition ) 


————» (data-item)) —___—_——_> (op) To ¢ a ail 
| | -» (literal ) 


<complex-condition ) 
OR— 
AND 


(simple-condition) 


NOT 


(op ) 


) 

( 
EQL 
GTR 
LSS 
LEQ 
GEQ 
NEQ 


Condition Semantics 


ad. 


Conditions are Boolean-type expressions formed by combining (in a logical and specific manner) 
data names, literal constants, and relations. 


The use of parentheses requires a matching left parenthsis and right parenthesis. 
In any simple-condition having the format 
data-name-l1 op  data-name-2 


the data items must be of similar type, for example, ALPHA, ALPHA or NUMBER, NUMBER. 
In comparing alpha-numeric data items, the comparison is based on the longest field. The shorter 
field is compared as if it were blank-filled to the right. In the example below, A will be equal to 
B if the most significant four characters of A and B are the same and the last two characters of B 
are blanks. For example: 


A ALPHA (4); % “ABCD” 
B es (6); % “ABCDbb” 


ae ege | | 


NUMERIC-defined items ; are compared on the numeric value, independent of the length of the 
items. 


When data items are defined within the scope of an OCCURS clause, all necessary subscripts 
must be specified. 


—— (data-item-name ) —_—____—__> ( a a ne Sie ) 


Example: 


simple-condition 


STUAD SUBSET OF ADR WHERE (FACULTY-STUDENT EQL 1) 


complex-condition 


WHERE (SALARY LSS OR SALARY EQL 0) 
SEXSET SUBSET OF MSF WHERE (SAGE 21 AND NOT SSEX) 
VERIFY ((HOURSCRDT GTR 0 AND CLASS-SIZE LEQ 60) AND NOPROF NEQ 0); 


PHYSICAL STRUCTURES 


The data base structures can be directed to system disk or removable user disk. The data base structure 
files differ from the standard B 1700 system files as follows: 


a. DMSITis responsible for the allocation and maintenance of data space. 
b. DMSII control information can be appended to the data in the records. 
c. Multiple data base structures can be mapped ate one file. 
There are four types of DMSII physical structures: 
a. Data Set. | 
b. Index Sequential. 
c. Index Random. 
d. List. 
1. Ordered. 
2. Unordered. 


Logical structures are mapped into one of the above four types of physical structures, and are mapped 
according to the list below. 


Logical Structure : Physical Structure 
Disjoint Data Set — Data Set 
Ordered Set Index Sequential 
Retrieval Set Index Random (Index Sequential Optional) 
Embedded Data Set - 
Unordered Unordered List 
Ordered Ordered List 
Manual Subset 
No Key Unordered List 
With Key Ordered List 
Automatic Subset Index Sequential 


Unless overridden by explicit file attributes, file names are created by using the default-naming conventions 
described in appendix A. 


Syntax 


( index-sequential-attributes ) ; —_______»/ 


(index-random-attributes » 


( list-attributes ) 


( data-se t-attributes ) 
( file-attributes ) 
Semantics 


a. Physical descriptions allow distinction between logical and physical structures in the data base 
description. | 


b. Physical descriptions must be declared at the outer level only. 
c. Physical descriptions must refer to sets, subsets, or data sets that have been defined previously. 


d. By not using a physical description, default values are assigned for the physical properties of the 
data base if no explicit specifications are made. If explicit assignment is made, the DASDL com- 
piler will not change the assigned value. 


Disjoint Data Set Attributes 


Each disjoint data set is allowed to have a default physical structure built by not listing any physical 
structure attributes. Disjoint data sets can have one or more sets associated with them, but only one 
structure can be responsible for the allocation and de-allocation of physical space for the data records. 
The structure controlling space is called the PRIME structure; it is either the data set itself or any of the 
sets of the data set. When a set is used as PRIME and that set with its data set are stored on a moveable 
head storage device is one significant use of the PRIME structure. By making a set the PRIME structure, 
it is generally true that with one movement of the read/write head, the system can obtain both the table 
and the data when one file is used to hold both structures. Each file area is partitioned into a section for 
the index tables, and a section for those data records whose index entries are in the index tables of the 
same area. Under all circumstances, PRIME set accessing has been optimized to provide performance 
benefits over non-PRIME accessing. 


Syntax 


PRIME 
BLOCKSIZE 
> AREASIZE 

POPULATION 


—~ (disjoint-data-set-identifier ) —> ( 


Semantics 
a. There is only one PRIME structure per data set and its associated structures. 
| b. The BLOCKSIZE, AREASIZE, and POPULATION statements are specified in number-of-records. 


c. AREASIZE must be greater than | and greater than or equal to BLOCKSIZE. 


DEFAULT VALUES 


POPULATION .............. . 10000 


BLOCKSIZE ............. . . . Ifthe record size is less than or 
| equal to 720 bits, the size is 
~ 1440 bits divided by the record 
size. If not less than or equal to 
720 bits, BLOCKSIZE is equal 


. | tol. 
AREASIZE. ..... 2... we .).)~ Maximum (POPULATION/20) or 50. 
PRIME ........ . eee ee ee FALSE, if there are no sets. 


The system makes the first ordered set of a data set by default PRIME. If there are no ordered sets, the 
system selects the first retrieval set. If there are no sets, the data set itself is considered PRIME. 


Data Set Maintenance Techniques 


If the data set is specified or defaulted as PRIME, space is maintained by a Next Available counter and a 
Highest Open counter for all areas of the physical file. If the Next Available counter equals the Highest 
Open counter, the record is stored at the record address indicated by Next Available and Highest Open 
counter. Both counters are then incremented by 1. If the Next Available counter is unequal to the Highest 
Open counter, the address in which to store the data record is taken from the Next Available counter, which 
is then set to the contents of the record at the address. (Available records are linked together.) 


If the data set is not specified or defaulted as PRIME, there is a Next Available counter plus a Highest Open 
counter for each area of the physical file; the area of the index file in which the key is inserted for the 
PRIME set, determines which pair of counters to use. 


Example: 
PRIME Data Set 
AREA 0 AREA 1 
REC 0 a REC 5 
REC 1 REC 6 
REC 2 
REC 3 
REC 4 


Next Available counter = 7 
- Highest Open counter = 7 
If REC 2 is deleted, Next Available counter = 2 
and Highest Open counter remains 7. 


Non-PRIME Data Set 


AREA 0 AREA 1 
REC 0 REC 5 
REC 1 REC 6 
REC 2 
REC 3 


For AREA 0: Next Available counter = 4 
Highest Open counter = 4 


For AREA 1: Next Available counter = 7 
Highest Open counter = 7 


If REC 2 is deleted, then Next Available counter = 2 
for AREA 0. Next Available counter and Highest 
Open counter for AREA 1 remain the same. 


Index Sequential Attributes 


INDEX SEQUENTIAL is the structure used to map disjoint sets and automatic subsets. The algorithm used 
maintains multiple levels of tables called coarse and fine tables. A coarse table is split when it becomes full, 
resulting in multiple levels of coarse tables. DASDL provides the user with control of the tables using the 
following two parameters: LOADFACTOR and SPLITFACTOR. 


LOADFACTOR entries can be placed in an existing fine table before a new fine table is started. This 
applies only when the new entries are added at the end of the existing entries. 


It is advisable to leave additional space in tables so when records are inserted after the initial load, there is 
space for the new entries without having to create new tables. The SPLITFACTOR determines how many 
coarse table entries are moved when it becomes necessary to split a coarse table. The number of entries 
specified by SPLITFACTOR are moved to a new coarse table; this new table is a new. level of coarse table, 
with a new entry referencing it in the split coarse table. 


The loading of this structure should be done in the sequence described by the Key structure in order to 
optimize the access of entries in the table. 


Syntax 


PRIME 
TABLESIZE: = (integer) 
AREASIZE 

LOADFACTOR 
SPLITFACTOR 

TYPE = INDEX SEQUENTIAL 


— (disjoint-data-set-identifier ) ( 


<automatic-subset-identifier) 


Example: 


00003700: POPULATION = 1000: 
00003800: UNIV-C-SET ORDERED SET OF UNIV-COURSES KEY IS (CRS-NO): 


00011000 : UNIV-C-SET( > 
00011100 :  TABLESIZE = 12, 


00011150: AREASIZE = 10, | 
00011200 : TYPE = INDEX SEQUENTIAL, 
00011300 : LOADFACTOR = 9); 

Semantics 


a. The AREASIZE specifies the number of tables per area. 


b. The TABLESIZE specifies the number of entries per fine table. Coarse table size is set to the | 
number of coarse table entries that can fit into the same amount of space. 


c. The LOADFACTOR specification is a peesnties of entries per fine table and must be greater 
than zero. 


The SPLITFACTOR spocnscanen is a percentage of entries per coarse table and must be greater 
than one. 


d. The TYPE specification i iS optional unless he disjoint setiidentifier refers to a retrieval set, then 
it is BOUIN 


DEFAULT VALUES 
cPRIME: 4. cc ae Ge @ -@ & & 2 “PRUE (if this is the first, or only, ordered set). 
-AREASIZE. ...... 0. (AREASIZE of data set) + 2. 
TABLESIZE ..... ... . . Thesquare root of POPULATION. 
LOADFACTOR ...... . . 66% of TABLESIZE (fine). 
SPLITFACTOR ....... . . 50% of TABLESIZE (coarse). 


Example: 


Coarse Tables Fine Tables Data Set 


NOTE 


Coarse tables can only go the three levels; fine tables are limited to one level. 
Coarse tables always contain the highest valued key of the next lower table. 


\o%) 
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Index Random Attributes 


An index random structure is built by default for each disjoint retrieval set in a data base. The algorithm 
takes the symbolic key in a hashed format, performs a remainder divide by the number of base tables 
(MODULUS), then searches the resulting table. When any of the base tables becomes full, additional 


entries for that table are placed in overflow tables. Enough space in the base tables should be allocated to 
minimize table overflow. 


Syntax 


PRIME 
TABLESIZE 
AREASIZE 
LOADFACTOR 
MODULUS 

TYPE = INDEX RANDOM 


—s ( disjoint-set-identifier ) —> ( 


Example: 


_ STUSET RETRIEVAL SET OF STUDENT KEY (IDNO); 


STUSET (MODULUS = 3, LOADFACTOR = 1): 
Semantics 


a. The MODULUS statement specifies the number of base tables. The MODULUS specification 


must be less than or equal to the AREASIZE specification multiplied by the number of areas but 
ereater than |. | 


b. The LOADFACTOR asians is a percentage that controls the distribution of overflow 
entries into overflow tables. If the LOADFACTOR entry implies one entry, only one base table 
overflows into any given overflow table. The LOADFACTOR entry must be greater than zero, 
and less than or equal to TABLESIZE. 

c. The TABLESIZE specification is the number of entries each table can hold. 

d. The AREASIZE specification is the number of tables per area. 


e. The TYPE specification is optional. 


DEFAULT VALUES 
PRIME ............ . . True (if this is the first, or only, retrieval 
set and there are no ordered sets). 
MODULUS. ........ .. . . Thesquare root of POPULATION multiplied by 1.1. 
TABLESIZE ........... . . MODULUS. 
LOADFACTOR ....... . . . . 66% of the MODULUS value. 
AREASIZE. ........ .. . . Maximum(MODULUS/15) or 10 if PRIME 


is true; otherwise, Maximum (MODULUS/5) or 10. 


ao 


Example: — 


BASE TABLE 1 


OVERFLOW POINTER 


BASE TABLE 2 


BASE TABLE 3 


OVERFLOW TABLE 1 


OVERFLOW TABLE 2 


za 
“/ 
/\ 


A 


LV 


DATA SET 


List Attributes 


An ORDERED LIST is built for each ordered embedded data set, and for each manual subset with a key. 
An UNORDERED LIST is built for each unordered embedded data set and for each manual subset with- 
out a key. Each record in a data set containing an embedded data set or a manual subset requires greater 
storage space than the data record requires, since control information is appended. The storage required 
for records of embedded data sets is also increased due to control information. Additional storage for the 
embedded data set can be reduced by placing multiple data records in a table, since control information is 
only stored once per table. 


An ORDERED LIST is maintained by placing records in physical order. Serial access becomes more effi- 
cient as the number of entries per table increases. 


Syntax 


AREASIZE = (integer) 
TABLESIZE 
BLOCKSIZE 


TYPE = C ORDERED it LIST 
~ UNORDERED 


T ‘embedded-data-set-identifier) ->—( 


 manual-subset-identifier ) 


Example: 


00002600 _ : BOOKS UNORDERED DATA SET( 


00010500 : BOOKS, 


00010600 : AREASIZE = 500, | 
00010650: TYPE = UNORDERED LIST, 
00010700 : BLOCKSIZE = 5); 

Semantics 


a. The TABLESIZE attribute is the number of records per table. 
b. The BLOCKSIZE attribute is the number of tables per block. 


c. The AREASIZE attribute is the number of tables per area. AREASIZE must be greater than or 
equal to the BLOCKSIZE entry: 


d. Each table may contain records from only one owner. 


e. The TYPE entry is optional. 


DEFAULT VALUES 


TABLESIZE ...... . . +... . (Maximum(number of records plus the con- 
trol information size that fits into one seg- 
ment, or 1.) 

BLOCKSIZE ...... .. . . .. . Maximum (number of tables that fit into one 
disk segment or 1) 

AREASIZE......... . . . . ((POPULATION * owner’s POPULATION) 


/TABLESIZE) / AREAS 
Example: 


LIST STRUCTURE 


POINTER 
POINTER 


LAST 


ya 
1) 
= 
FL, 


OWNER 
RECORD 


PREVIOUS 


LIST 
TABLES 


FF = Null value. 
# = Number of LIST records containing information. 
TABLESIZE = 4. | 


File Attributes 


Storage files can be specified at DASDL compilation time either to alter the title of a file, assign pack 
storage, alter areas, or group logical structures into a single physical file. 


The structures that can be stored in a single physical file are listed below. However, no structure can be 
in more than one structure list. Any one of the following items a. through f. can be stored in a single 
physical file. 

a. A disjoint data set. 

b. An embedded data set. 


c. A disjoint data set plus one of its sets. 


d. Up to 16 index sequential sets or automatic subsets. 
e.. One index random set. 
f. A manual subset. 


Syntax 


b) 


(disjoint-set-identifier ) 
(disjoint-data-set-identifier ) 
( embedded-data-set-identifier ) 
(subset-identifier ) 


———» (identifier) STORAGE FOR 


PACK = (identifier ) . 
AREAS = (in teger » 


] TITLE = (identifier ) | identifier) - 
| i ae ae 


i ) ———/ 


Example: 


00010800 :BOOKFILE STORAGE FOR BOOKS( 


00010850 : _ JITLE - UNIV/LIBRARY, 
00010900 : ~ AREAS = 10); 3 
Semantics 


a. Ifa PACK entry is specified, it must be a valid user pack identifier. 


b. The number of areas assigned by the AREAS specification must be greater than zero, and less 
than or equal to 105. AREAS is the maximum number of areas in the disk file. — 


DEFAULT VALUES 
TITLE. .............. . The STORAGE identifier. 
PACK so 5.4 Sh BO oh B ae > a (NUE 


INIREAS 2 ce ee ake Us ok oh we ee oe a 20 


4, COBOL INTERFACE 


INTRODUCTION 


There are two interfaces between the host language, COBOL, and the data base system: one during compila- 
tion and one during execution. The compilation interface provides syntax allowing an application program, 
through the use of the INVOKE statement, to use any or all portions of a data base. The invoke process 
consists of utilizing DASDL-generated library files that supply the COBOL compiler a description of the 
user-selected portions of the data base. The COBOL compiler then compiles an appropriate execution-time 
interface with the data base. 


The execution interface consists of a number of record areas, one for each data set invoked, and a number 
of paths, one for each set or subset. 


Associated with every record area is a current-record pointer. A record is considered to be the current 
record of a data set if the appropriate current-record pointer refers to an existing record in the data base. 
Usually, the record area contains a copy of that record, at least until the record area is changed by the 
program. 


The current-record pointer for a data set is changed by any operation that causes a new record to be placed 
in the record area, or placed into the data base from the record area. The establishment of any record as 
the current record for a record area, through use of a MODIFY or STORE operation, locks the record, 
making that record unavailable to any other user. Changing the current record pointer automatically 
unlocks any previously locked record and if required locks the new one. 


Sets and subsets are represented as paths rather than as records. Their purpose is to locate the records of 
the data set with which they are associated. The current-path pointer associated with every set and subset 
(but not data set) refers to the last record accessed by way of that set or subset. This current-path pointer 
retains its reference until explicitly changed, or until the record referenced by the current-path pointer 

is deleted from the data base. 


A current-record pointer can be in one of four states: 
a. Undefined state — not valid for any purpose. For example, just after a data base OPEN. 


b. Created state — indicates a CREATE operation has just been executed for a data set. If a STORE 
is the next operation to be executed against the data set, a new record is stored. In all other 
instances the created state is the same as the undefined state. 


c. Defined state — refers to a valid record. For example, current record pointer is defined after a 
successful FIND operation. A record can be locked only if it is in this state. 


d. Deleted state — indicates there is no valid current record, but the current-record pointer main- 
tains a position in the data set. For example, current-record pointers are in the deleted state 
following a DELETE operation since the current record has been removed. A current-record 
pointer in the deleted state can be used to access the next or prior record but not a current 
record. | . 


Figure 4-1 illustrates the current-record pointer states. 


OPEN 


UNDEFINED 
STATE 


FUL FIND | 
MODIFY — 


DELETED- 


DEFINED 
STATE 


Figure 4-1. Current-Record Pointer State 


The functional operation of figure 4-1 is explained below: 
a. When the data base is opened, the current record pointer is in the undefined state. 
b. An unsuccessful FIND or MODIFY operation does not change the current-record-pointer state. 


c. A RECREATE operation affects the current-record-pointer state the same as the CREATE 
operation. | | 


d. Whenever the current-record pointer of a data set changes, the current-record pointer for all 
embedded data sets becomes undefined. | 


e.. A FREE operation does not affect the state of the current record pointer. 


f. Accurrent record pointer can be set to the deleted state due to the actions of some other program 
being multiprogrammed against the same data base. _ . 


A set or subset current path pointer can be in one of three states: 
a. Undefined. 
b. Defined. 
c. Deleted. — 


Figure 4-2 illustrates a set or subset current-path pointer processing state. | 


a 
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Figure 4-2. Set Or Subset Current-Path Pointer State 


The functional operation of figure 4-2 is explained below: 
a. When a data base is opened, the set or subset current path pointers are in an undefined state. 


b. An unsuccessful FIND or MODIFY operation, by way of a current-path pointer of a set or subset, 
changes the set or subset current-path pointer. : 


c. The STORE, CREATE, RECREATE, and FREE operations do not affect a set or subset current- 
path pointer. | 


d. An INSERT operation always changes the current-path pointer of a subset to the defined state. 


e. Whenever the current-record pointer of a data set changes, the current-path pointer for all of that 
data set’s embedded sets and subsets become undefined. 


f. Asset or subset current-path pointer can be set to the deleted state as the result of another pro- 
gram accessing the same data base. | 


COBOL DATA DIVISION 

General 

A DATA-BASE SECTION must be inserted within the DATA DIVISION of a COBOL program supplying 
the COBOL compiler with a description of all or selected portions of a data base. The DATA-BASE 
SECTION is placed between the FILE SECTION and the WORKING-STORAGE SECTION. 


DATA-BASE SECTION 
In the DATA-BASE SECTION all data sets intended for use are invoked. This signals the compiler to 
include in the compilation the item names and all path names (sets and subsets), plus all embedded data 


sets and subsets within the invoked data set. The compiler also establishes the necessary user record areas. 


Syntax 


DATA-BASE SECTION. ———__________»/ 


oa —————»> ( data-base-name ) - ———» (data-set-references \ cs ae 


Example: 


001031 DATA-BASE SECTION. 
001032 DB UNIV. 


Semantics 


a. The level indicator, DB, is used to select a particular data base. Any particular data base can be 
referenced only once per program, and only one data base can be open at any one time. 


b. The data-base-name identifier can be used as a qualifier of data sets or set names. The data-base- 
name is the family-name of the program-identifier used in the DASDL compilation (see 
appendix A). 


Data Set References _ 


The referenced data base can be followed by any number of data set references. 


Syntax 


01 —— (internal-data-set-name) INVOKE (external-data-set-name)——> . 
Example: 


001033 01 MASTER INVOKE MSF. 
001034 01 ADDRESS INVOKE ADR. 


Semantics 


The level number 01 is used to select particular data sets from a data base. 


Each compilation copies the description of each invoked data set into the program from a library 
file created by DASDL. The file-identifier of this library file for each data set has the following 
format: 


data-base-name | data-set-name 


The internal-data-set-name allows synonym capability and can also be used to establish more than 
one record area for a data set. 


All references to the data set in the program are by the internal-data-set-name. The internal-data- 
set-name can be a name assigned by the programmer, or the name of a data set defined in DASDL. 
The internal-data-set-name must be different than the external-data-set-name if the data set is 
invoked more than once within a program. The use of the internal-data-set-name provides a 
unique name for each record area of the data set, and is required only if the data set is invoked 
more than once. 


Embedded data sets must not be programmatically invoked. They are automatically invoked 
when the data set to which they belong is invoked. 


All disjoint data sets, if used, must be invoked. This method also applies to any disjoint data sets 
referenced by a subset if the subset is used. 


INVOKED DATA SET 


The COBOL compiler prints the names of all the paths and data items, and also shows the structure number 
(DDL-NUMBER) assigned at the DASDL compilation. The source statements supplied by the DASDL com- 
piler are distinguished from the COBOL source statements by an asterisk (*) appearing to the left of the 


print line, 


Example: 


as the coding example below indicates. 


001034 01 ADDRESS INVOKE ADR. 


x* & & & ¥ FHF KE HE SX 


01 ADR DATASET DDL-NUMBER 10 20: 0: 4 12/ 5/74 
ORDERING KEY SSAD DDL-NUMBER 19 20: 0: 4 12/ 5/74 


(SNO). 
02 FACULTY-STUDENT PIC 9 COMP. 
02 SNO PIC 9(9) COMP. 
02 ADLN OCCURS 9 TIMES PIC X(54). 
02 ZIPC PIC 9(5) COMP. 
02 PHON PIC 9(10) COMP. 


The structure number, along with an internally assigned invoke number, allows the system to update the 
correct record areas. Even when the structure number is the same, the invoke number ensures that the 
correct record area is altered. The level numbers generated by the COBOL compiler reflect the usage of 
data items by level indicators. The listing also displays the time and date the files were created by the 
DASDL compilation. 


MULTIPLY-INVOKED DATA SET 


Since one record area can only hold one record at a time, it may be necessary, for effectiveness, to have 
more than one record area. In the following example, MSF is invoked twice, creating two separate record 
areas for MSF so that two different records of MSF can be used at the same time. This example provides 
multiple current records. 


The following example also provides multiple current path pointers for the same set. Each current path 
pointer is updated only when explicitly used. Either record area can be updated by any of the paths to 
MASTER or FILE1. 


DATA-BASE SECTION 

DB UNIV. 

01 MASTER INVOKE MSF. 
01 FILE1 INVOKE MSF. 


COBOL PROCEDURE DIVISION 
General 


The DATA-BASE SECTION allows the invocation of all or part of a data base. As a result of the invoked 
description, the compiler generates the necessary interfaces, so that at data base open time, the proper data 
set record areas are allocated. 


Special extensions to COBOL are used to manipulate data sets. Data base retrieval and storage are accom- 
plished at the record level, with one record being transferred into or out of the record area together with 
selected data base operations. 


Move And Move Corresponding 


The record area for a data set contains two types of items: one type is control information, the other is the 
data. The portion containing data items is similar to a WORKING-STORAGE 01 entry indicating that all . 

COBOL data manipulation statements can be utilized in the moving of data items. This includes the group 

MOVE and the MOVE CORRESPONDING operations as the following example illustrates. 


* 01 MSF DATASET DDL-NUMBER 6 20: 0: 4 12/ 5/74 

ORDERING KEY MSFSET DDL-NUMBER 18 20: 0: 4 12/ 5/74 

* (SSNO). | | | 

02 SSNO ; PIC 9(9) COMP. 

* 02 NONAM PIC 9 COMP. 

* 02 LNAME ~ | PIC X(30). 

* 02 QUARTER DATASET DDL-NUMBER __ 15 20: 0: 4 12/ 5/74 

ORDERING KEY QSET DDL-NUMBER 15 20: 0: 4 12/ 5/74 

: ~ (QTR). 

* 03 QTR PIC X(4). 

* 03 OTTRHRS PIC 99 COMP. 
# 03 OTROP PIC 99 COMP. 


The functional description of the above example is explained in the following list. 


a. MSFSET, Sseaetat and OSET are control items and are not aioueds in a MOVE MSF TO. 
ora MOVE... TOMSF operation. 


b. QTR, QOTTRHRS and QTROP are items of the record area for QUARTER and therefore are not © 
moved ina MOVE MSF TO...oraMOVE...TO MSF operation. 


c. The MSF record area for a group MOVE operation can be considered as the following items: 
01 MSF 
02 SSNO 
02 NONAM 
02 LNAME 


d. Items SSNO, NONAM, and LNAME are the only candidates fora MOVE CORRESPONDING 
operation. 


e. A group MOVE operation is always considered as an alphanumeric MOVE. 
Exception Processing 
The COBOL PROCEDURE DIVISION has been extended by adding DMSII statements, providing an inter- 
face between a COBOL program and a data base. The system, when executing DMSII statements, can 
encounter any one of several exception conditions that prevents the operation being performed as specified. 
If an exception condition occurs, the program terminates unless the DMSII statement is followed by an ON 
EXCEPTION clause. It is recommended, therefore, that the ON EXCEPTION clause be used following 
DMSII statements. 


To further qualify the nature of an exception, there exists for each COBOL program a special register: 
DMSTATUS. DMSTATUS is set by the system at the completion of each DMSII statement. 


ON EXCEPTION CLAUSE 


The syntax chart notation indicates that an ON EXCEPTION clause may appear, by the presence of a 
double slash (/ /). The ON EXCEPTION clause syntax that follows a double slash is shown below. 


Syntax 


— ON EXCEPTION ———~ (statement-1 TC . 7 
ELSE ——> (statement-2 ) 


The following example illustrates the ON EXCEPTION programming technique: 

Example: 
STORE CORSES ON EXCEPTION PERFORM STATUS-BOOLEAN. 
MODIFY MSFSET AT SSNO = C-SSNO ON EXCEPTION 
IF DMSTATUS(NOTFOUND) DISPLAY C-SSNO “‘NOT IN MSF” ELSE 
PERFORM STATUS-BOOLEAN. 

| ‘Semantics | 

a. Each DMSII statement yields a true/false value which is true if the operation resulted in an 
exception condition; the value is false if the operation completed with no exceptions encoun- 
tered. If true, statement-1 of the ON EXCEPTION clauses will be executed; otherwise, state- 
ment-2 will be executed if present. | 


b. Logically, DMSTATUS can be used to qualify: an ON EXCEPTION clause. 


c. Ifthe ON EXCEPTION clause is not specified, the occurrence of an exception terminates the 
program. 


4-7 


~DMSTATUS Register 


The DMSTATUS register provides the capability to determine the nature of an exception should an 
exception occur. DMSTATUS is set by the system at the completion of each DMSII statement, and is used 
to qualify an ON EXCEPTION clause. To isolate the exception encountered, a number of attributes exist 
for DMSTATUS. Each attribute yields a Boolean value to indicate whether that particular category of 
exception has occurred. The DMSTATUS register, when used, has the following format. 


DMSTATUS Syntax 


DMSTATUS 


( (category-name) ) > / 


_ The category-name and its descriptions are listed in table 4-1. 


Category Name 


NOTFOUND 


DUPLICATES 


DEADLOCK 


DATAERROR 


NOTLOCKED 


Table 4-1. DMSTATUS Categories and Description 


Exception Condition Description 


This record does not satisfy a SELECTION 
expression such as in MODIFY or FIND. 


Key value in record does not match key ofa | 
manual subset. 


No current record exists (previously deleted). 
Current-record pointer is undefined. 


Either the master record is undefined or the 
embedded structure is empty. 


Duplicates not allowed in set (STORE 
operation). 


Duplicates not allowed in a manual 
subset (INSERT operation). 


A “deadly embrace”’ condition has occurred 
while trying to lock records. Note that the sys- 
tem has automatically performed a FREE © 
operation of all records for this program. 


An attempt was made to store a record with a 
null key or null required item. 


An attempt was made to store a null record (all 
bits = 1). | 

A DASDL verify condition not met. 
A STORE statement not preceded by a CREATE, 
RECREATE, MODIFY, or STORE. 


Table 4-1. DMSTATUS Categories and Description (Cont) 


Category Name 


KEYCHANGED 


SYSTEMERROR 


IOERROR 


LIMITERROR 


OPENERROR 


CLOSEERROR 


NORECORD 


INUSE 


DMERROR 


Exception Condition Description 


An attempt was made to store a record when the 
value of an item, used as a Key in a set, was 
illegally changed (duplicates not allowed, or 
embedded set). 


Only one data base can be open at a time. 


An I/O error was encountered trying to read 
from or write to the data base. 


Data exceeds the size of physical structure. 


Data base not initialized. 
Already open. 


Run-time description of data base does not 
match compile-time description. 


DBM option not set or CLEAR/START required. 


Data base not at proper level. 


Data base not open prior to first operation. 
Data base not open. 
Current-record pointer not valid for an INSERT 


operation. 


Current-record pointer not valid for a FIND 
manual subset-identifier operation. 


Current record of master not valid. 


Attempt made to delete a record with non-null 
embedded structure. 


This attribute is set whenever any exception has 
occurred. One of the preceding attributes is also 
set. 


Note that NOT DMSTATUS (DMERROR) is 
true on a successful operation. 


In the seaaisibe below, no action is eeen regardless of whether : an exception occurs. The exception condi- 
tion is reserved for later processing. 


FIND MSFSET AT SSNO = C-SSNO ON EXCEPTION NEXT SENTENCE. 
Selection Expression 


The selection expression specifies the particular record of a data set that is desired, as well as the record area 
to be loaded with the found record. All record selections are made through paths. Paths are the routes the 
system uses to locate records; the physical order in which records exist in a data set constitutes a path. Any 
ordering keys or retrieval keys are paths, and a subset is a path. 


_ The verbs used with selection expressions are FIND or MODIFY. Both of these verbs cause the record spec- 
ified by the selection expression to be located. However, if a record which satisfies the selection expression 
is not found, an exception is returned. If a record is found, it is transferred into the record area. For a 
MODIFY operation, the found record is locked so that a concurrent user cannot access the same record. 
The current-record pointer is updated, and the current-path pointer for the paths is updated. Unused paths 
are unaffected. If a path is used and the desired record is not found, that current-path pointer becomes 
undefined, but the current-record pointer and record area retain the values held prior to the beginning of 
the operation. | 


Syntax 


(set-name ) 


(data-set-name ) VIA 


‘subset-name ) 


(data-set-name |) ——————_»>/ 


AT (key-condition ) 


Example: 


MODIFY MSFSET AT SSNO = C-SSNO 

FIND MSF VIA MSFSET AT SSNO = C-SSNO 
FIND MSF VIA FIRST MSFSET 

FIND FIRST MSF 


Semantics 


a. Aselection expression is used in FIND and MODIFY statements to identify a particular record in 
a data set. 7 


b. The optional phrase “data-set-name VIA” at the beginning of some forms of the selection 
expression must be used when the path used is a manual subset. 


c.  “data-set-name VIA” identifies the record area and current-record pointer that is affected, 
providing the desired record is found. By default, the data set is the data set containing the 
set used. 

d. Note that a subset-name is interchangeable with set-name in selection expressions. 


KEY CONDITION 


The key condition specifies values used to locate specific records in a data set spanned by a set or referenced 
by a subset. 


Syntax 


AND 
an oe (key-name » a ih = — (data-name ) 
EQUAL , (literal ) 


FIND S AT A = 50 AND B = 50 


Example: 


Semantics 

a. The key-name must be a data-name in the key as defined by the DASDL description. 

b. Each key-name in the key must appear only once and to the left side of the equal sign. 

c. The valid item types for literal or data-name are determined by the COBOL MOVE statement 
rules. Therefore it must be legal to perform a MOVE operation on a literal or data-name to the 
key-name in order for the key condition to be valid. 

d. The key-name of a multi-item key must appear in the same order as specified in DASDL. 

SELECTION EXPRESSION FORMS 
For discussion purposes, the following syntax forms are considered separately. Whenever an ordering is 
required but no explicit ordering exists, an implicit physical ordering is used. Whenever a current-record 


pointer or current-path pointer is required but is not in the proper state, the operation terminates with an 
exception. 


Form |: 


FIRST 
PRIOR 


(data-set-name) VIA 


— (subset-name ) 


In form 1, FIRST specifies that the first record in the specified path is to be selected. The path cannot be a 
retrieval set. The path is maintained in the sequence specified. If a subset is used; the data-set-name VIA 
clause must be used. The record returned is the first in the physical order of the subset if a key was not 
specified for the subset. If a key was specified for the subset, FIND data-set-name VIA FIRST subset-name 
locates the first record in the subset, depending on the specified ordering key. 


NEXT is used to find the next record by the path specified. NEXT of a set or subset with a key returns the 
record with the next higher (or lower, if descending) key value; NEXT of a subset without a key locates the 
next physical record. | 


LAST locates the last record in the specified path. PRIOR locates the preceding record. NEXT and PRIOR 
are always relative to the current-path pointer. FIND PRIOR of a data set (form 2) can return a different 
record than FIND PRIOR of a set (form 1). The current-path pointer is updated to reflect the record 
located. NEXT and PRIOR can be used only if the current-path pointer is defined or deleted; otherwise an 
exception condition is returned. . | 


Example: 


D DATA SET 
(A NUMBER (3); 
B NUMBER (10)); 
K ORDERED SET OF D KEY (A): 


Since ascending sequence is the default ordering sequence for keys, the path K in the example below refers 
to members of D in sequence on A. A FIRST K therefore would transfer to the record area for D the re- 
cord whose value of A was the lowest in the data set. The physical ordering of D might be different from 
the logical ordering represented by K. If another ordering key, K1, was added with the specification K1 
ORDERED SET OF KEY (A DESCENDING), the statement FIND FIRST K1 would return the member 
of D with the highest value of A. | 


Example: 


D DATA SET 

(A NUMBER (5); 

B ALPHA (4)); 

K ORDERED SET OF D KEY (A); 
D1 DATA SET 

X NUMBER (4); 

Y SUBSET OF D; 

Z SUBSET OF D KEY (B); 

Z1 ALPHA (2)); 


If D and DI are both invoked, the statement FIND D VIA FIRST Y can then be used, returning the 
first physical record of D in the table of subset Y. If the statement FIND D VIA FIRST Z is used, the 
record found is that record of D having the lowest value of B which was inserted into Z. 


Form 2: 


In form 2, FIRST specifies that the record selected is the “first” physically located record in the file in 
which the data set is stored. 


NEXT data-set-name locates the next physical record. 
LAST locates the last physical record in the specified path. 
PRIOR locates the preceding record. 


The current-record pointer is updated to reflect the located record. NEXT and PRIOR are valid only if the 
current-record pointer is in the defined or deleted state; otherwise an exception condition is returned. 


Form 3: 


a. i. oe (set-name ‘)) ————____—____»/ 
—_ (data-set-name VIA 
b.-———$ > (data-set-name A __§_o/ 


Form 3a of the selection expression recopies the record referenced by the current-path pointer into the 
record area. The current-path pointer must be in the defined state; it remains unchanged. The current- 
record pointer is updated. 


Form 3b recopies the record referenced by the current-record pointer into the record area. The current- 
record pointer must be in the defined state; it remains unchanged. 


Form 4: 


(set-name 7 ie (key-condition)————»/ 


(data-set-name) VIA (subset-name 


Form 4 is used to select records of the data set based on some values in the key fields. NEXT is valid only 
if the current-path pointer is in the defined or deleted states. 


If the NEXT expression is used, the system selects the next record in the set that satisfies the key condition. 
If there are no more records that satisfy the key condition, the ““NOTFOUND” exception is given. Form 4 
can be used only where the set-name has a key associated with it. 


Example: 


D DATA SET 
(A ALPHA (2); 
B NUMBER (10): 
C NUMBER (4)): 
K ORDERED SET OF D KEY (A); 
K1 RETRIEVAL SET OF D KEY (C); 
K2 RETRIEVAL SET OF D KEY (CB); 


In the above example, records of D could be selected based on the value of A, using K, or based on the 
value of C, using K1, or based on the values of C and B, using K2, as shown below: 


FIND K ATA = “AA” 


FIND K1 ATC = 100 
FIND K2 AT C = AND B = 1001007890 
FIND K1 ATC = BI 


COBOL Statements 
The COBOL verbs used to manipulate data sets are as follows: 


CREATE 
DELETE 
FIND 

FREE 
INSERT 
MODIFY 
RECREATE 
REMOVE 
STORE 


In addition, syntax has been implemented for the verb OPEN, and additional semantics for the verb CLOSE. 


Each of the above verbs is discussed in alphabetical order in the following paragraphs. 


CLOSE 


Syntax: 


> CLOSE ————__—>- (data-base-name))—_________________»>/ 


Semantics: 
a. CLOSE can be used to close a data base when further access is no longer required. 
b. CLOSE is optional, since the system closes any open data base when the program terminates. 
c. Animplicit FREE is performed on all records locked by the program. 


d. If the data base is not open, the operation terminates with an exception condition. 


Syntax: 


CREATE ———_———>- ( data-set-name J > // 


Semantics: 


a. 


CREATE must be performed prior to the addition of a new record in a data set, (optionally 
RECREATE may be used). A CREATE does not add the new record to the data base; that 

is the function of aSTORE. The main purpose of a CREATE is to initialize the entire current 
record area of the data set to null (all bits = 1). This is used for validity checking of the record 
at the time of the STORE operation. | 7 | 


An implicit FREE is performed on the prior current record of the data set. 
The current-record pointer goes to the created state. 


Normally, CREATE is eventually followed by a STORE, placing the new record into the data set. 
However, if a subsequent STORE is not desired, the CREATE can be nullified by a subsequent 
FIND, MODIFY, CREATE, or RECREATE. 


A CREATE initializes only a record area. If the record contains embedded structures, the 
master record must be stored before storing entries in the embedded structure. If only entries in 
the embedded structure are added, changed, or deleted the master need not be stored a second 
time. 


DELETE 


Syntax: 


———————~ DELETE 3 - (data-set-name ) ———$$$$$$_$______________»/ 


Semantics: 


a. The DELETE operation eliminates a specified record from a data set. 

b. The current record area is reloaded with the contents of the record. 

c. If the record contains a non-empty embedded structure, the record is not deleted. 

d. If the record can be deleted, it is removed from all sets and automatic subsets of which it is a 
member. The record is then removed from the data set. The current-record pointer goes to the 


deleted state. The data remains unaltered in the record area. 


e. The user must remove the record from any manual subset that points at the data set record being 
deleted (refer to the REMOVE statement). oe 


~FIND ————_______—- (selection-expression ) aaa / | 


Semantics: 


a. 


The FIND operation performs two functions: 
1. Locates the record satisfying the selection-expression and 


2. Transfers the data from the data base to the record area so it can be accessed by the 
program. 


If a record satisfying the selection-expression is not found, the operation terminates with an 
exception condition. In this case, the record area and current-record pointer retain their original 
values. However, if a set or subset had been involved, its current-path pointer becomes undefined. 


If a record is found, it is transferred to the record area, and the current-record pointer is altered 
to refer to the found record. Also, if a set or automatic subset had been involved, its current- 
path pointer is altered to refer to the found record. 


Prior to the FIND operation, an implicit FREE is performed to unlock the previous current 
record. 7 | | 


FREE 


Syntax: 


ee | eee (data-set-name ) _Y/ 


Semantics 
a. A FREE operation unlocks the current record. 


b. A FREE can occur after any operation. If the current-record pointer is not in the defined state 
or the current record is not locked, the FREE is ignored. 


c. A FREE is optional in most situations, since the CREATE, RECREATE (and sometimes the 
FIND or MODIFY operation) perform an implicit FREE prior to their other actions. In general, 
an implicit FREE is performed prior to any operation that establishes a new current-record 
pointer. | 


d. The current-record pointer and current-record area are not affected. 


INSERT 


Syntax: 


INSERT -————>- (data-set-name \ 


INTO - (manual-subset-name ) ————————_»/ 


| 


Semantics: 


a. 


b. 


The INSERT operation is used to insert a record into a manual subset. 


The data-set-name must be the declared source of records for a manual subset. For example, the 
manual subset-name must be a manual subset of data-set-name, as the example below illustrates. 


DASDL: Si SUBSET OF D — 
COBOL: INSERT D INTO S1 


The current-record pointer of data-set-name must be defined; if not, the operation is terminated 
with an exception condition. 


The data set in which the manual subset is embedded must have the current-record pointer in the 
defined state, and that record must be locked; if not, the operation is terminated with an 
exception condition. 


If duplicates are not allowed for the manual subset, an exception condition occurs if a record 
that has a key identical to that of the source record already exists in the manual subset. 


Syntax: 


MODIFY 


————_—_—_—_——_> MODIFY —__—_> (selection-expression ) ——_——— 


Semantics: 


a. 


The functions of a MODIFY operation are identical to FIND with one exception: if the record 
is found, it is locked, prohibiting concurrent modification by another user. 


A MODIPY operation should be used if there is a possibility that the data set record contents 
will be changed. The MODIFY operation does not physically modify the record, but allows 
modification to be performed subsequently without a concurrent update from another user. 


If the found record is already locked by another user, a contention analysis is performed by the 
system. Normally, the present user waits until the record is unlocked. However, if it is deter- 
mined that waiting would result in a “deadly embrace,”’ all records locked by the present user 
are unlocked; and the operation is terminated with an exception condition. 


Since no other user may lock a record once it is locked, it is important to free the record when 
it is no longer necessary to keep it locked. This is accomplished by a FREE operation or 
implicitly by a subsequent MODIFY, FIND, CREATE, or RECREATE on the same data set. A 
subsequent STORE leaves the record locked. 


The locking action is maintained on a block level. 


OPEN 


Syntax: 


= OPEN UPDATE — (data-base-name)—_______—»/ 


Semantics: 


a. The OPEN operation is used to open a data base for subsequent access. 


b. An OPEN must be executed prior to the first access to the data base; otherwise, all data base 
requests will terminate with an exception condition. | 


c. If the data base is already open, the operation is terminated with an exception condition. 


d. The system attempts to open an existing data base. The data base dictionary is opened at this 
time. If the data base dictionary is not present, the message: 


NO FILE data-base-name /DICTIONARY 
is displayed. 
Each data file is opened on the first operation that uses the data in the file. Files that are not 


needed are not opened. If the files are needed, and they are not present when they are needed, 
the message: | 


NO FILE file-identifier 


is displayed. 
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RECREATE | 


Syntax: 


RECREATE : 


(data-set-name ) ———________________»// 


Semantics: 


RECREATE operation is identical to CREATE, with one exception: the record area for the data set is not 


completely initialized. All data items remain unaltered; however, items such as manual subsets and 
embedded data sets are set to null. 


| REMOVE 


— Syntax: 


_—————> REMOVE CURRENT 


FROM ———> (manual-subset-name) —_—»// 
Semantics: 
a. The REMOVE operation is used to remove a record from a manual subset. 


b. The manual subset must have a defined current-path pointer; if not, the operation is terminated 
with an exception condition. 


c. The record referenced by the manul subset current-path pointer is removed from the subset but 
not from the data set. 


d. The data set in which the manual subset is embedded must have the current-record pointer in the 
defined state and that record must be locked; if not, the operation is terminated with an excep- 
tion condition. 


Syntax: 


STORE 


—__—_—___——_». STORE ——___—_____>- (data-set-name \) —————_________________»/ 


Semantics: 


g. 


The STORE operation is used to return a modified record to a data set, or to place a newly 
created record into a data set. 


The data to be stored is in the record area of the data set. Prior to the storing of a record, the 
data is checked for validity (VERIFY, REQUIRED, non-null keys) as specified by DASDL. A 
validity failure terminates the STORE operation with an exception condition. 


If the current-record pointer is in the defined state and the current record is locked, the data 
replaces the current record in the data set remains locked. If the current-record pointer is 

in a defined state but unlocked, or in an undefined state or deleted state, the operation terminates 
with an exception condition. 


If the current-record pointer is in the created state, the data becomes a new record in the data set 
and is locked. The current-record pointer is then in the defined state and refers to the new record. 


Set current-path-pointer is not affected by a STORE operation. 
All fields which are, or form, part of a key or are REQUIRED must contain a value other than a 
null value before a STORE operation can be completed successfully. If any of these fields are 


null, the operation terminates with an exception condition. 


The following additional actions are performed depending on the prior operation. 


STORE After CREATE or RECREATE 


1. The condition is evaluated for each automatic subset (subset containing a WHERE condi- 
tion). The subset is marked for insertion if the condition and validity checks are satisfied. 


2.  Ifadata record cannot be inserted into any set (but not automatic subsets) for some reason, 
the operation is terminated with an exception condition. In this case, the record is not 
inserted into the data set nor is it inserted into any set. If no reason does exist, the STORE 
operation is successful and all necessary set and automatic subset insertions are made. 


3. For each set that spans the data set, the record is tested for validity. After the STORE 
operation, any data item not containing a value will be null (all bits = 1). Care should be 
taken in the COBOL program if it is necessary to check the contents of such a field, because 
the contents will be hexadecimal F’s. 


STORE After MODIFY 


1. In this operation, the record already exists in all sets. 


2. Conditions must be re-evaluated if any items involved in the automatic subsets condition 
have changed. The record is removed from the automatic subsets containing the record if a 
condition is not satisfied. The record is inserted into automatic subsets not already contain- 
ing the record if the condition is satisfied. 
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~ STORE 
\ Continued 


If a key used in the ordering of a set is modified, and the record must be moved in that set, 
the record is deleted from the set and reinserted in the proper position. It is illegal to 
modify a key if duplicates are not allowed, or if the set is an embedded set. 


If the ordering of a manual subset is affected, the STORE operation will occur, but no reorder- 
ing of that manual subset will be performed. It is the responsibility of the user to maintain 
manual subsets. A subsequent reference to the record through that subset causes the operation 
to be terminated with an exception condition (DMSTATUS (KEYCHANGED). | 


Appendix A. DMSII COMPILATION GUIDE 


DASDL COMPILATION PROCEDURES 
The following procedures must be observed to create a data base: 


a. Compilation of a DASDL source deck defines the logical and, optionally, the physical structure 
of the data to be entered into the data base. The DASDL compilation types are as follows: 


1. Compile for syntax: Causes a syntax check of the DASDL input. Neither a dictionary file 
nor library files are generated: 


2. Compile for library: Causes a data base dictionary file to be created and removes any exist- 
ing dictionary file having the same name. 


NOTE 


The compile-and-go operation is not recommended for use, as it 
implies the production of object code. Since there is no object 
code produced, the MCP displays a warning message. 


b. The data base dictionary created by a successful compilation is titled: 
<data-base-identifier) DICTIONARY 


The data-base-identifier is the ““family-name”’ of the program identifier used for the DASDL 
compilation. 


The data base dictionary file is a disk file containing a description of all the structural character- 
istics of the data base. This description is used during execution by the MCP access routines to 
control all access to the data base. 


c. The INITIALIZE statement is required prior to the execution of any program accessing the data 
base. Its function is to create initialized disk files for storing data records and index tables. This 
function is not performed on a compile for syntax, or a compilation where there are syntax errors. 
Once INITIALIZE has been executed, a permanent data base is created. No further changes can 
be made without recreating the data base by a recompilation of the DASDL source deck. 


d. The following examples provide illustrations of a DASDL compilation source deck. 


A2 


DASDL SOURCE CARDS 


(<2?) DATA CARDS © 


<2 COMPILE UNIV WITH DASDL SYNTAX 


Figure A-1. Compile for Syntax 


DASDL SOURCE CARDS 


¢?' DATA CARDS 


(2) COMPILE UNIV WITH DASDL LIBRARY 


Figure A-2. Compile for Library 
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DASDL COMPILATION PROGRAM NAME 


A program name consists of either one, two, or three identifiers, with each identifier able to be a maximum 
of 10 characters in length. The following example illustrates the four possible program name formats: 


( family-name 

family-name) /< file-identifier) 
K family-name\ | 7 
K family-name /< file-identifier 


The family-name is synonymous with the data-base-name. For further information regarding program name 
formulation, refer to the B 1700 System Software Operational Guide, Form No. 1068731. 


(disk-pack-iden tifier 
(disk-pack-identifier 


DASDL FILE NAMES 
The following file names are produced by a successful DASDL compilation. 
a. Dictionary file: <data-base-name) /DICTIONARY 


b. COBOL library file: (data-base-name) / disjoint-data-set-name) 


c. Data files: ‘data-base-name) | data-set-name) (Data sets) 
data-base-name) /<subset-name) (Subsets) 
data-base-name) / set-name) (Disjoint sets) 


If a set is stored in a file with a data set, the data-set naming convention takes precedence. If multiple sets 
are stored together, the name of the first set has precedence. Embedded sets are stored with their data sets. 


If the program name of a DASDL compilation has a disk-pack-id, all data files will have that disk-pack-id 
appended to them. Both the dictionary file, at program execution, and the COBOL library file, at compila- 
tion time, are expected to reside on system disk. 


DASDL COMPILER ($) OPTIONS 


The following compiler options can appear either at the beginning or within the source deck. The format of 
the $ option card is below. 


$ [NO] option-1 [NO] option-2 


Option 


$ COBOL 


DOUBLE 
FILE 
LIST 

NO 


SINGLE 


Fea Fa Fe FeLURRDLUCUCU DM 


SOURCE 
$ SOURCEONLY 


$ STRUCTURE 


$ SUPPRESS 


$ VERSIONCHECK 


Description — 


Checks for COBOL reserved words, and must appear before any. 
source cards. | | | 


Causes re to be double spaced. 

Causes the puatne of the file attributes. | 

Causes a printout of the listing. Automatically set by compiler. 
Negates the option directly following the word NO. 

Causes the listing to be single spaced. 

Causes the generated COBOL library files to be printed. The 
SOURCE option is usually placed prior to the source deck physical 


description. 


Regenerates the COBOL copy files by using an existing data base 
dictionary. This option is the only input for this DASDL run. 


Causes the printing of structure attributes. If STRUCTURE is placed 
before the physical description, both the default and revised structure 
attributes will be printed. If it is placed after the first physical 
attribute, only the revised structure attributes will be printed. 


Causes warning messages to be suppressed. 


Automatically set by the compiler. When the option is in a reset con- 
dition (§ NO VERSIONCHECK) the compiler provides the mechanism 
to ignore the program dictionary checking performed at execution. 
This action eliminates the requirement of program recompilation with 
each new DASDL recompilation. 


NOTE 


$ VERSIONCHECK should be set for all non-testing executions. 


Figure A-3 contains a DASDL program with the $§ FILE and $ STRUCTURE options specified. The 

$ STRUCTURE option causes each structure to be printed with all of its parameters. The $ FILE option 
causes the file parameters to be printed following the structures with which it contains. Thus, UNIV- 
PERSONNEL and SS-U-P are contained in file number 1, named UNIV/UNIV-PERSO. 


00000100 
00000150 
00000200 
00000300 
00000400 
00000600 
00000700 
HHO000R00 
Onn ro900 
00001000 
o00e1100 
eqnn12e00 
00001300 
000d taco 
g0001500 
000016006 
000901700 
00001809 
00001900 
00002000 
00002100 
00002200 
00902300 
00002400 
00002500 
00002609 
009002700 
009028060 
00092909 
00003040 
00093100 
00003200 
600°%3700 
000903750 
00093809 


00003900 


00004000 
000041460 
00004209 
00094300 
gooodang 
00004569 


00004600 — 


00004700 
000048ND 
00004900 
00005000 
00005100 
00005200 
00005300 
00005350 
00005400 
00005500 
00005600 
00005709 
00005800 
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© UNIV DATA BASE 
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:8SUPPRESS 
2$FILE STRUCTURE 
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THE VARIOUS CONSTRUCTS USED IN 


?%DASDL TO DESCRIBE A DATA BASE 
rPARAMF TERS ( 


BUFFERS © 10 Vy 


SUNTV@COURSES DATA SET "MAIN FILE" (¢ 
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CRSeNAME GROUP (— 
DEPARTMENT ALPHA(2)3. 
LEVEL NUMBER(3)) 
CRSeNO NUMBER(4))) 

NOPPOF NUMBER(2)3 | 

DAYS*OF eWEEK GROUP ( 

MON NUMBER(1)) 
TUES NUMBER(1)3 
WEDS NUMBER(1)3 
THURS NUMBER(1)) 
FRI NUMBERC1)) 
SAT NUMBER(1)) 

BUILDING NUMBER(3)) 

ROOMNUMBER ALPHA(2)3 

COURSENAME ALPHA(24)3 

FLAG@BITS ALPRA(C{2)) 

HQOURSCRDT NUMBER(GU)3) 

CLASS#SIZE NUMBER(C2)3. | 

PROFESSOR SUBSET. OF UNIVePERSONNEL, POPULATION & 33 

BOOKS UNORDERED DATA SET C 
LC NUMBER(9)3 
TITLES ALPHAC60) 3 
AUTHR ALPHA(30))) 

STUDENTS SUBSET OF MSF KEY IS 
CLNAME,FNAME DUPLICATES, 

POPULATION ® 3006) 

POPULATION & 10606 


} 


VERTFYC(CHCURSCRDT GTR 0 AND CLASS=SIZE LEQ 60) AND NOPROF NEG 0)} 


UNIT VeCmSET ORDERED SEY OF UNIVeCOURSES KEY IS (CRG=NO)s 


UNIV=PERSONNEL DATA SET(C 


NAME GROUP ( : 
LASTNAME ALPHAC15)3 
FYRSTNAME ALPHA(10))3 
SEX NUMBER(4)3 
AGE NUMBER(2)3. 
SSNUM NUMBER(9)3 
DPT ALPHACG)} 
RANK ALPHA(C1)9 
SALARY NUMBER(S87,2)3 | 
COURSES SUBSET OF UNIV=eCOURSES,POPLLATION = 83 
ADDRES SUBSET OF ADR) 
SUPR SUBSET OF UNIVePERSONNEL ) 2? 
SSeUerP ORDERED SET OF UNIVePERSONNEL KEY ITS (SSNUM)? 
U=P=SET ORDERED SET OF UNIV@PERSONNEL KEY IS 
CLASTNAME,FIRSTNAME) DUPLICATES? 
DATA SETC 
SSNO NUMBER(9)3 
NONAM NUMBER(L)3 
LNAME ALPHA(30)3 
MNAME ALPHA(30)3 


Figure A—3. UNIV Data Base Example (Sheet 1) 
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00005900 


FNAME ALPHAC3Q)5 


3 
00006000 8 CAMPUS*ADDRESS GROUP ( 
00006100 8 DORM ALPHA(6)} 
CO00b200 8 ROOM NUMBER(4))3 
00006300 3 POBOX NUMBER(4)? 
N000b400 8 PHONE NUMBER(7))3 
00006500 NO NUMBER(2)3 
00006600 3 DEGREE ALPHA(4) OCCURS 6 TIMES) 
00006709 3 TOTHRS NUMBER(3)7 
00006R00 3 YOTQP NUMBER(3)) 
00006909 3 GRADE=POINT@AVG NUMBER(3,2)3 — 
00007000 3: MIR NUMBER(3)) 
00007100 8 AMJR ALPHA(18)5 
00007200 3: SSEX NUMBER(1)3 
00007300 ¢ SAGE NUMBER(2)3 
00007400 ¢: HOME*@ADDRESS SUBSET OF ADR) 
00007500 QUARTER ORDERED CATA SETC 
00007600 : QTR ALPHACU)3 
00007700 3 QTTRHRS NUMBER(2)3 
00007800 3 QTROP NUMBER(2)} | 
09007900 3 CORSES ORDERED DATA SETC 
00008000 3 TYPECOURSE NUMRER(1) REQUIRED) 
00008033 ¢ GRADE ALPHA(2) REQUIRED?) | 
00008066 3 CRS SUBSET OF UNIV=COURSES} 
00008100 3 YR NUMBER(2))9 | 
00008200 ! Q NUMBER(2)) | | 
00008300 GCRS SUBSET OF UNIVeCOURSES? - 
00008400 3 GGD ALPHA(C2)) 
00008500 1: TITLE@OF@PAPER ALPHA(30)) 
00008600 3 PPRGD ALPHAC2)), 
00008700 38 POPULATION @ 4} 
00008800 3 CSET ACCESS TO CORSES KEY IS 
00008850 3 (TYPECOURSE) DUPLICATES) 
00009000 8 POPULATION ® SQ0O? 
00009100 3 OSET ACCESS TO QUARTER KEY IS (OTR))) 
00009200 3 MSFSET ORDERED SET OF MSF KEY 28 (SSNO)s 
00009300 FADR DATA SET( | 
00009400 3 FACULTY*STUDENT NUMBER(1)3 
00009500 3 SNO NUMBER(9) REQUIRED) 
00009600 3 ADLN ALPHA(54) OCCURS 9 TIMES) 
00009700 3 ZIPC NUMBER(S) REQUIRED) 
00009800 3 PHON NUMBER(10))) | | 
00009850 s:S8AD ORDERED SET OF ADR KEY IS (ZIPC) DUPLICATES) 
00009900 3 SS8AD ORDERED SET OF ADR KEY IS (SNO)? 
00009910 opens SUBSET OF ADR WHERE (FACULTY@STUDENT EQL 1) KEY I8 (ZIPC,S§ND) 
00009920 3 DUPLICATES? 
00009930 LFACAD SUBSET OF ADR WHERE (FACULTY*STUDENT EQL 2) KEY I8 (ZIPC.SNO) 
00009940 ¢ DUPLICATES?) 
00009950 sADMAD SUBSET OF ADR WHERE (FACULTY @STUDENT EQL 3) KEY Is (ZIPC,SNOQ) 
00009960 4 BUF LOCANES 
00010800 1BOOKS( 


UNIV@COURSES DATA SET 1 
STRUCTURE NUMBER = 1 


PRIME @& 0 

BLOCKSIZE = 2 RECORDS/BLOCK 
AREASTZE # 292 RECORDS PER AREA 
POPULATION @ 1000 RECORDS 
DATASTZE = 426 BITS 

RECORDS!ZE w 616 BITS 


Figure A—3. UNIV Data Base Example (Sheet 2) — 


BITS PER BLOCK =. 1232 


UNIVeC@SET INDEX SEQUENTIAL SET # 
STRUCTURE NUMBER 7 

PRIME ® 4 

TABLESTZE(COARSE) ® 70 ENTRIES 
TABLESTZE(FINE) # #58 ENTRIES 
AREASIZE & 7 TABLES PER AREA 
LOADFACTOR # 65 PERCENT 
SPLITFACTOR = 50 PERCENT 
ENTRYSIZE(COARSE) = 40 BITS 
ENTRYSIZECFINE) = 46 BITS 

BITS PER BLOCK(COARSE) m 2816 
BITS PER BLOCK(FINE) = 2800 


PROFESSOR UNORDERED LIST 3 
STRUCTURE NUMBER 2 

AREASIZE & SO RECORDS PER AREA 
TASLESIZE @ 42 ENTRIES 
BLOCKSIZE s @ RECORDS/BLOCK 
DATASIZE = 32 BITS 

RECORDSIZE @ 1416 BITS 

ENTRYSIZE m 32 BITS 

BITS PER BLOCK & 11360 


STUDENTS ORDERED LIST 3 

STRUCTURE NUMBER § 

AREASIZE = 7500 RECORDS PER AREA 
TABLESIZE ® 2 ENTRIES 
BLOCKSIZE = { RECORDS/BLOCK 
DATASIZE = 32 BITS 

RECORDSIZE = 1096 BITS 

ENTRYSIZE = 512 8ITS 

BITS PER BLOCK = {128 


BCOKS UNORDERED LIST 

STRUCTURE NUMBER 4 

AREASTZE 2 500 RECORDS PER AREA 
TABLESIZE & 1 ENTRIES 
BLOCKSIZE = 1 RECORDS/BLOCK 
DATASIZE = 760 BITS 

RECORDSIZE 2 832 BITS 

ENTRYSIZE @ 760 BITS 

BITS PER BLOCK s 6d 


UNTV@PERSONNEL DATA SET 2 
STRUCTURE NUMBER 3 

PRIME s 0 | 

BLOCKSIZE = | 2 RECORDS/BLOCK 
AREASIZE = 1192 RECORDS PER AREA 
POPULATION & 10000 RECORDS 
DATASIZE = 320 BITS 

RECGROSIZE = # £=Si2 BITS 

BITS PER BLOCK = {024 


Figure A—3. UNIV Data Base Example (Sheet 3) © 


es-UeP INDEX SEQUENTIAL SET 1 
STRUCTURE NUMBER 12 

PRIME #4 a a 
TABLESIZE(COARSE) ® 143 ENTRIES 
TABLESTZECFINE) @ 119 ENTRIES 
AREASTZE =@ 12 TABLES PER AREA 
LOADFACTOR & 66 PERCENT. 
SPLITFACTOR # 49 PERCENT 
ENTRYSIZE(COARSE) 2 60 BITS 
ENTRYSIZE(FINE) » 72 BITS | 
BITS PER BLOCK(COARSE) = 8596 


BITS PER BLOCK(FINE) 3 6584 


UePeSET INDEX SEQUENTIAL SET! 


STRUCTURE NUMBER 13 


PRIME = 0 | 7: 
TABLESIZE(COARSE) & 109 ENTRIES 
TABLESIZE(FINE) ® 105 ENTRIES 
AREASTZE ® 13 TABLES PER AREA 
LOADFACTOR &@ 66 PERCENT 
SPLITFACTOR = 49 PERCENT 
ENTRYSIZE(COARSE) @ 224 BITS 
ENTRYSIZE(FINE) ® 232 BITS 
BITS PER BLOCK (COARSE) = 24432 
BITS PER BLOCK(FINE) ® 24376 


COURSES UNORDERED LIST : 
STRUCTURE NUMBER 8 

AREASIZE © 125 RECORDS PER AREA 
TABLESIZE @ G2 ENTRIES 
BLOCKSIZE « 4 RECORDS/BLOCK 


OATASIZE & 32 BITS 


RECOROSIZE # 1416 BITS 
ENTRYSIZE = 32 BITS 
BITS PER BLOCK = 5696 


ADDRES UNORDERED LIST 8 

STRUCTURE NUMBER 9 

AREASIZE # 125 RECORDS PER AREA 
TABLESIZE @ U2 ENTRIES 
BLOCKSIZE = 4 RECORDS/BLOCK 
DATASTZE & 32 BITS 

RECORDSIZE & 1416 BITS 

ENTRYSIZE = 32 BITS. 

BITS PER BLOCK = 5696 


SUPR UNOPDERED LIST ¢ 

STRUCTURE NUMBER 11 

AREASIZE = 125 RECORDS PER AREA 
TABLESIZE 2 U2 ENTRIES _ 
BLOCKSIZE = 4 RECORDS/BLOCK 


DATASIZE ® 32 BITS 


RECORDSIZE & 1416 BITS 
ENTRYSIZE = 32 BITS 
BITS PER BLOCK = 569% 


Figure A—3. UNIV Data Base Example (Sheet 4) 


MSF DATA SET 3 
STRUCTURE NUMBER 6 

PRIME » 0 

BLOCKSIZE & 1 RECORDS/BLOCK 
AREASIZE @ 1191 RECORDS PER AREA 
POPULATION &® 10000 RECORDS 
DATASIZE. = 1276 BITS 
RECORDSTZE = {1404 BITS 

BITS PER BLOCK = 1404 


MSFSET INDEX SEQUENTIAL SET ¢ 
STRUCTURE NUMBER 19 

PRIME a j | | 
TABLESIZE(CCOARSE) 38 143 ENTRIES 
TABLESIZECFINE) =» 119 ENTRIES 
AREASIZE = 12 TABLES PER AREA 
LOADFACTOR 8 66 PERCENT 
SPLITFACTOR = &9 PERCENT 
ENTRYSIZE(COARSE) = 60 BITS 
ENTRYSIZECFINE) 2 72 BITs 
BITS PER BLOCK(COARSE) = 8596 
BITS PER BLOCK(CFINE) = 8584 


HOME=ADDRESS UNORDERED LIST t 
STRUCTURE NUMBER 14. 

AREASIZE w 125 RECORDS PER AREA 
TABLESIZE = 42 ENTRIES 
BLOCKSIZE # 4 RECORDS/BLOCK 
DATASIZE m 32 BITS 

RECORDSIZE = 1416 BITS 

ENTRYSIZE 2 32 BITS 

BITS PER BLOCK = 5696 


CRS UNORDERED LIST 3 

STRUCTURE NUMBER 17 ~~ | 
AREASIZE 2 9632 RECORDS PER AREA 
TABLESIZE 8 42 ENTRIES 
BLOCKSIZE = 4 RECORDS/BLOCK 
DATASIZE » 32 BITS : 
RECORDSIZE ® 1416 BITS 

ENTRYSIZE ss 32 BITS 

BITS PER BLOCK s 5696 


GCRS UNORDERED LIST 3 

STRUCTURE NUMBER 18 

AREASTZE m 9632 RECORDS PER AREA 
TABLESTZE F G2 ENTRIES 
BLOCKSIZE = 4 RECORDS/BLOCK 
DATASTZE =m 32 BITS 

RECORDSIZE = 1416 BITS 

ENTRYSIZE = 32 BITS 

BITS PER BLOCK = $696 


CORSES ORDERED LIST 1 
STRUCTURE NUMBER {6 


Figure A—3. UNIV Data Base Example (Sheet 5) 


AREASTZE. @ 14339 RECORDS PER AREA 
TABLESIZE = S ENTRIES. 
BLOCKSIZE «= 1 RECORDS /BLOCK 
OATASTZE # 312 BITS 

RECORDSIZE # 1392 BITS 

ENTRYSIZE «& 440 AITS 

BITS PER BLOCK = {ded 


QUARTER ORDERED LIST 3 

STRUCTURE NUMBER 15 

AREASIZE = 20850 RECORDS PER AREA 
TABLESIZE = 12 ENTRIES 


BLOCKSIZE «= 1 RECORDS/BLOCK 


DATASTZE © 48 AITS” 

RECORDSIZE = 1416 BITS 
ENTRYSIZE @ 112 ALTS 
BITS PER BLOCK » 1448 


ADR DATA SET 2 
STRUCTURE NUMBER 16 
PRIME # 0 


BLOCKSIZE = 1 RECORDS/BLOCK 
AREASIZE = 910 RECORDS PER AREA 


POPULATION ® {10000 RECORDS 
DATASIZE & 3988 BITS 
RECORDSIZE = 3988 SITS 


BITS PER BLOCK =# 3988 


SAD INDEX SEQUENTIAL SET 3 
STRUCTURE NUMBER 20 

PRIME # { | | | 
TABLESTZE (COARSE) ® 129 ENTRIES 
TABLESIZECFINE) = 101 ENTRIES 
AREASIZE 8 11 TABLES PER AREA 
LOADFACTOR @ #66 PERCENT 
SPLITFACTOR = 49 PERCENT 
ENTRYSIZE (COARSE) a 44 BITS 
ENTRYSIZECFINE) =» 86 BITS 
BITS PER BLOCK(COARSE) = 5692 
BITS PER BLOCK (FINE) a $672 


SSAD INDEX SEQUENTIAL ‘SET t 
STRUCTURE NUMBER 21 

PRIME 8 0. 

TABLESTZE (COARSE) = 143 ENTRIES 
TABLESTZECFINE) Lye ENTRIES | 
AREASTIE «. q TABLES. PER AREA 
LOADFACTOR © 66 PERCENT. 
SPLITFACTOR' # 49 PERCENT | 
ENTRYSTZE (COARSE) & 60. Bits 
ENTRYSTZECFING) @: Th BrTs. 

BITS PER. BLOERAC ARSED. 2 aso 
BITS PER. BLOCKCFINE) @  688a° 


Figure A—3. UNIV Data Base Example (Sheet 6) 


00010600 
00010650 
00010700 
00010800 
00010850 
00010900 
00011000 
00011100 
00011150 
00011200 
00011300 
00011400 
00011450 
00011500 
00011600 


PRIME @# 0 


TABLESTZE(COARSE) & 128 ENTRIES 


TABLESIZECFINE) @: 123 ENTRIES 
AREASTZE @ {0 TABLES PER AREA 
LOAOFACTOR © 66 PERCENT 
SPLITFACTOR = 49 PERCENT 
ENTRYSTZECCOARSE) @. 80 BITS 
ENTRYSTZECFINE) #8 68 BITS 
BITS PER BLOCK(COAPSE) » 10016 
BITS PER BLOCKCFINE) # 9966 


FACAOD INDEX SEQUENTIAL SET ! 
STRUCTURE NUMBER 23 

PRIME w 6 

TABLESIZECCOARSE) 8 125 ENTRIES 
TABLESTZECFINE) «& 113 ENTRIES 
AREASTZE ® {0 TABLES PER AREA 
LOADFACTOR # 66 PERCENT 
SPLITFACTOR # 49 PERCENT 
ENTRYSIZECCOARSE) ® 80 BITS 
ENTRYSIZECFINE) @ 8&8 BITS 

BITS PER BLOCK(COARSE) w 10016 
BITS PER BLOCKCFINE) # 9960 


ADMAD INDEX SEQUENTIAL SET 8 
STRUCTURE NUMBER 24 

PRIME @ 0 

TABLESIZECCOARSE) 8 125 ENTRIES 
TABLESIZECFINE) 2 143 ENTRIES 
AREASIZE = 10 TABLES PER AREA 
LOADFACTOR 8 66 PERCENT 
SPLITFACTOR ws 49 PERCENT 
ENTRYSIZEC(COARSE) & 60 BITS 
ENTRYSYZECFINE) & aa BITS 
BITS PER BLOCK(COARSE) a 10016 
BITS PER BLOCK(CFINE) = 9960 

t AREASIZE 2 3500, 

: TYPE & UNORDEREO LIST, 

t BLOCKSYZE = §)3 
tBOOKFILE STORAGE FOR BOOKS (¢ 
H TITLE & UNIV/LIBRARY, 

: AREAS # 10)3 
sUNIVeC=SET( 

: TABLESTZE. ® 12, 

: AREASIZE w 10, 

2 TYPE m INDEX SEQUENTIAL, 
t LOAOFACTOR # 9)) 

t 
: 
: 


SUNT VePERSONNEL (¢ 


PRIME, 
POPULATION # 997)) 


INITIALIZE} 


UNIVeCOURSES DATA SET 3 

STRUCTURE NUMBER {4 

PRIME = 0 | 
BLOCKSIZE = @ RECORDS/BLOCK. 
AREASTZE # 292 RECORDS PER AREA 
POPULATION @ 1000 RECORDS 


Figure A-3. UNIV Data Base Example (Sheet 7) 


el wh“ “Oe wo 26 “ee Oe - 8-8 -~T8 2-28-08 


DATASIZE s 424 BITS 
RECORDSIZE @ 616 BITS 
ed PER BLOCK = 1232 


UNIT VeCeSET INDEX SEQUENTIAL SET 1 
STRUCTURE NUMBER 7 
PRIME # { 


TABLESIZE(COARSE) 8 14 ENTRIES 


TABLESIZE(FINE) = 12 ENTRIES 
AREASTZE @ {0 TABLES PER AREA 
LOADFACTOR @ 8 PERCENT 
SPLITFACTOR @ SO PERCENT 
ENTRYSIZE(COARSE) & 40 BITS 
ENTRYSIZEC(FINE) = 48 BITS | 
BITS PER BLOCK(COARSE) = 576 
BITS PER BLOCK(FINE) » 592 


FILE INFORMATION 8 
FILE NUMBER 2 


AREAS = 20 , 

AREASIZE @ 156 SEGMENTS 
PACK & as 
TITLE = UNIV /UNTVeCOURS 


PROFESSOR UNORDERED LIST 3 
STRUCTURE NUMBER 2 

AREASIZE ® 50 RECORDS PER AREA 
TABLESIZE = 42 ENTRIES 

BLOCKS: ze = «B® -RECORDS/BLOCK 
DATASIZE = 32 BITS 

RECORDSTZE zs {416 BITS 

ENTRYSIZE = 32 BITS 

BITS PER BLOCK @ 11360 


FILE INFORMATION 8 
FILE NUMBER 3 


AREAS mw 20 

AREASIZE 2s 50 SEGMENTS 
PACK @. | 

TITLE @ UNIV /PROFESSOR 


STUDENTS ORDERED LIST 8 

STRUCTURE NUMBER 5 

AREASIZE © 7500 RECORDS PER AREA 
TABLESIZE & 2 ENTRIES 
BLOCKSIZE a 1 RECOROS/BLOCK 
DATASIZE = 32 BITS > 
RECORDSIZE 2 1096 BITS 

ENTRYSIZE = 512 BITS 

BITS PER BLOCK # 1128 


FILE INFORMATION 3 

FILE NUMBER 4 

AREAS @ 20 | 
AREASIZE & 7500 SEGMENTS 


Figure A—3. UNIV Data Base Example (Sheet 8) 


PACK & 
TITLE 29 UNIV /STUOENTS 


UNTIVePERSONNEL DATA SET 8 
STRUCTURE NUMBER 3 


PRIME & 1} 

BLOCKSIZE = 2 RECORDS/BLOCK 
AREASIZE = 1192 RECORDS PER AREA 
POPULATION & 997 RECORDS 


DATASIZE 8 320 BITS 
RECOROSIZE s S$i2 BITS 
BITS PER BLOCK = 1024 


FILE INFORMATION # 
FILE NUMBER ) 


AREAS @ 20 

AREASIZE @ 596 SEGMENTS 
PACK & 

TITLE «& UNIV /UNIV#PERSO 


COURSES UNORDERED LIST 3 
STRUCTURE NUMBER 8. 

AREASIZE s 125 RECORDS PER AREA 
TABLESIZE = 42 ENTRIES 
BLOCKSIZE 2 4 RECORDS/BLOCK 
OATASIZE @ 32 BITS 

RECOROSIZE = {416 BITS 
ENTRYSTZE 8 32 BITS 

SITS PER BLOCK = 5696 


FILE INFORMATION 3 
FILE NUMBER . 6. 


AREAS s 20 

AREASIZE & 125 SEGMENTS 
PACK s 

TITLE 2 UNTV /COURSES 


ADDRES UNORDERED LIST 3 

STRUCTURE NUMBER 9 | 
AREASIZE # 125 RECORDS PER AREA 
TABLESIZE @ 42 ENTRIES 
BLOCKSIZE « 4 RECORDS/BLOCK 
DATASIZE # 32 8178 
RECORDSIZE ® 1416 BITS 

ENTRYSIZE = 32 BITS 

BITS PER BLOCK ® $696 


FILE INFORMATION 3 
FILE NUMBER 7 


AREAS ® 20 | 
AREASIZE 8 125 SEGMENTS 
PACK @ 

TITLE @ UNIV  AADDRES 


Figure A—3. UNIV Data Base Example (Sheet 9) 


SUPR UNORDERED LIST 1 

STRUCTURE NUMBER 11 

AREASIZE = {125 RECORDS PER AREA 
TABLESIZE @ 42 ENTRIES 
BLOCKSIZE = 4 RECORDS/BLOCK 
DATASIZE = 32 8ITS 
RECORDSIZE = 1416 BITS 

ENTRYSIZE & 32 BITS 

BITS PER BLOCK 3 5696 


FILE INFORMATION t 

FILE NUMBER 8 

AREAS & 20 oe 
AREASIZE & 125 SEGMENTS 
PACK s | 

TITLE 2 UNIV /SUPR 


MSF DATA SET 2 

STRUCTURE NUMBER 6 

PRIME # 0 

BLOCKSIZE s 1 RECORDS/BLOCK 
AREASIZE = 1191 RECORDS PER AREA 
POPULATION 8 10000 RECORDS 
DATASIZE @ 1276 BITS 
RECORDSIZE = 1404 BITS 

BITS PER BLOCK we {4404 


MSFSET INDEX SEQUENTIAL SET 8 
STRUCTURE NUMSER 19 

PRIME = 1 | 
TABLESIZEC(COARSE) # 143 ENTRIES 
TABLESIZEC(FINE) 3 i419 ENTRIES 
AREASTZE 8 12 TABLES PER AREA 


_LOADFACTOR 8 66 PERCENT 


SPLITFACTOR = 49 PERCENT 
ENTRYSIZE(COARSE) = 60 BITS 
ENTRYSIZE(FINE) # 72 BITS 
BITS PER BLOCK(COARSE) = 8596 
BITS PER BLOCK(FINE) = 858d 


FILE INFORMATION 8 

FILE NUMBER 9 

AREAS mw 20 

AREASIZE @ 1263 SEGMENTS 
PACK @ 

TITLE # UNTV /MSF 


HOME@ADDRESS UNORDERED LIST 1 
STRUCTURE NUMBER {4 


AREASTZE = {$25 RECORDS PER AREA 


TABLESIZE & se ENTRIES 
BLOCKSIZE a a RECORDS /BLOCK 
OATASIZE ss 32 BITS 
RECORDSIZE @ {1416 BITS 
ENTRYSIZE & 32 BITS” 

BITS PER BLOCK = $696 


Figure A—3. UNIV Data Base Example (Sheet 10) 


FILE INFORMATION ¢ 
FILE NUMBER 10 


AREAS = 20 | 

AREASTZE = 128 SEGMENTS 
PACK s ae 
TITLE # UNIV /KOME=ADORE 


CRS UNORDERED LIST 1 

STRUCTURE NUMBER 17 

AREASIZE # 9632 RECORDS PER AREA 
TABLESTZE = 42 ENTRIES | 
BLOCKSIZE » © 4 RECORDS/BLOCK 
DATASIZE = 32 BITS 

RECORDSIZE = 1416 BITS 

ENTRYSIZE =» 32 BITS” 

BITS PER BLOCK 8 $696 


FILE INFORMATION t 
FILE NUMBER ff 


AREAS = 20 
AREASIZE 8 9632 SEGMENTS 
PACK 3 


TITLE = UNIV —/CRS 


GCRS UNORDERED LIST 3 

STRUCTURE NUMBER 148 

AREASYZE = 9632 RECORDS PER AREA 
TABLESIZE = 42 ENTRIES 
BLOCKSIZE & 4 RECORODS/BLOCK 
DATASIZE s 32 BITS 

RECORDSIZE 3 1416 BITS 
ENTRYSIZE & 32 BITS 

BITS PER BLOCK x 5696 


FILE INFORMATION 4 
FILE NUMBER 12 


AREAS 3 20 

AREASIZE ® 9632 SEGMENTS 
PACK s | 
TITLE w& UNIV /GCRS 


CORSES ORDERED LIST 8 
STRUCTURE NUMBER 16 

AREASTZE © 14339 RECORDS PER AREA 
TABLESIZE ® 3 ENTRIES 
BLOCKSIZE =| { RECORDS/BLOCK 
DATASTZE = 312 BITS 
RECORDSIZE ® 1392 BITS 
ENTRYSIZE = 440 BITS 
BITS PER BLOCK =& {424 


FILE INFORMATION ? 
FILE NUMBER 13 


Figure A—3. UNIV Data Base Example (Sheet 11) 


AREAS # 20 

AREASIZE w 14339 SEGMENTS | 
PACK @ | 

TITLE #@ UNIV /CORSES 


QUARTER ORDERED LIST 3 

STRUCTURE NUMBER 18 

AREASTZE # 20850 RECORDS PER AREA 
TABLESIZE @ 12 ENTRIES 
BLOCKSIZE s 1 RECORDS/BLOCK 
DATASIZE ® 46 BITS | 
RECORDSIZE = {416 BITS 

ENTRYSIZE = 112 BITS 

BITS PER BLOCK # 1448 


FILE INFORMATION § 
FILE NUMBER 14 


AREAS ws 20 

AREASIZE #@ 41700 SEGMENTS 
PACK @ 

TITLE @ UNIV | /QUARTER 


ADR DATA SET 3 


STRUCTURE NUMBER 40 

PRIME m 0 

BLOCKSIZE 8 { RECORDS/BLOCK 
AREASTZE & 910 RECORDS PER AREA 
POPULATION # 10000 RECORDS 
DATASIZE m 3988 BITS | 
RECORDSIZE = 3988 BITS. 


BITS PER BLOCK a 3988 


SAD INDEX SEQUENTIAL SET 3 
STRUCTURE NUMBER 20 

PRIME = i) | 
TABLESIZE(COARSE) = {129 ENTRIES 
TABLESIZE(FINE) @ 101 ENTRIES 
AREASTZE = {1 TABLES PER AREA 
LOADFACTOR @ 66 PERCENT 
SPLITFACTOR © 49 PERCENT 
ENTRYSIZEC(COARSE) = 44 BITS 
ENTRYSIZECFINE) # 56 BITS | 
BITS PER BLOCK(COARSE) = 5692 
BITS PER BLOCK(FINE) = 5672 


FILE INFORMATION ¢ 

FILE NUMBER 15 

AREAS @ - 20 a | 
AREASTZE @ 2774 SEGMENTS © 
PACK «a | 

PITRE e UNIV / ADR 


SSAD INDEX SEQUENTIAL SET 3 
STRUCTURE NUMBER st | 
FRIME @ 0 a 


Figure A-3. UNIV Data Base Example (Sheet 12) _ 


TABLESIZE(COARSE) &@ 143 ENTRIES 
TABLESIZECFINE) = 119 ENTRIES 
AREASTZE 9 TABLES PER AREA 
LOADFACTOR & 66 PERCENT 
SPLITFACTOR @ 49 PERCENT 
ENTRYSIZE(COARSE) @ 60 BITS 
ENTRYSIZECFINE) 2 72 BITS 

BITS PER BLOCK(COARSE) mw 8596 
BITS PER BLOCK(FINE) & 8584 


FILE INFORMATION 3 

FILE NUMBER {6 

AREAS = 20 

AREASIZE = 54 SEGMENTS 
PACK s 

TITLE so UNIV /SSAD 


STUAD INDEX SEQUENTIAL SET 8 
STRUCTURE NUMBER 22 

PRIME = 0 

TABLESIZE(CCOARSE) 8 125 ENTRIES 
TABLESTIZECFINE) a 1143 ENTRIES 
ARFASIZE & 10 TABLES PER AREA 
LOADFACTOR & 66 PERCENT | 
SPLITFACTOR # 49 PERCENT 
ENTRYSIZE (COARSE) 2@ 80 BITS 
ENTRYSIZECFINE) 88 BITS | 
BITS PER BLOCK(COARSE) mw 10016 
BITS PER BLOCKCFINE) =» 9960 — 


FTLE INFORMATION 8 

FILE NUMBER 16 

AREAS = 20 © 

AREASIZE & 124 SEGMENTS 
PACK 

TITLE e& UNITY /SS8AD 


FACAD INDEX SEQUENTIAL SET 
STRUCTURE NUMBER 23 

PRIME = 0 | 
TABLESTZE(COARSE) 2 125 ENTRIES 
TABLESIZEC(FINE) m {13 ENTRIES 
AREASTZE # {0 TABLES PER AREA 
LOADFACTOR ® 66 PERCENT 
SPLITFACTOR = 49 PERCENT 
ENTRYSIZE(COARSE) # 80 BITS 
ENTRYSIZECFINE) = 88 BITS 
BITS PER BLOCK(COARSE) = 10016 
BITS PER BLOCK(FINE) = 9960 


FILE INFORMATION 

FILE NUMBER {6 
AREAS ® 20 

AREASIZE © 194 SEGMENTS 
PACK » 

TITLE @ UNIV /88A0 


‘Figure A—3. UNIV Data Base Example (Sheet 13) 


ADMAD. INDEX SEQUENTIAL SET 8 


STRUCTURE NUMBER 24 

PRIME @ 0 | | 
TABLESIZE(COARSE) ® 125 ENTRIES 
TABLESIZE(FINE) @ {13 ENTRIES 
AREASTZE = 10 TABLES PER AREA 
LOADFACTOR ® 66 PERCENT 
SPLITFACTOR = 49 PERCENT 
ENTRYSIZE(COARSE) = 80 BITS 
ENTRYSIZEC(FINE) # 88 BITS 
BITS PER BLOCK(COARSE) = 10016 
BITS PER BLOCK(FINE) & 9960 


FILE INFORMATION ! 

FILE NUMBER 16 

AREAS = 20 | 

AREASTZE = 264 SEGMENTS 
PACK = ‘ 

TITLE & UNIV /SSAD 


BOOKS UNORDERED LIST 

STRUCTURE NUMBER 

AREASIZE = 500 RECORDS PER AREA 
TABLESIZE a 1 ENTRIES 


BLOCKSIZE = S RECORDS/BLOCK 


DATASIZE @ 760 BITS” 
RECORDSIZE = 832 BITS 
ENTRYSIZE = 760 BITS 
BITS PER BLOCK » died 


FILE INFORMATION ¢ 


FILE NUMBER {1 

AREAS w 10 1 | 
AREASTZE = 300 SEGMENTS 
PACK = 7 
TITLE w UNTV © /B00K8 


Figure A—3. UNIV Data Base Example (Sheet 14) 


COBOL COMPILATION PROCEDURES 


The COBOL compilation process requires a program written according to the normal COBOL syntactic 
conventions, incorporating data set INVOKE statements and the appropriate DMSII statement extensions 

to COBOL as defined in section 4. During each compilation, upon recognition of an INVOKE statement of 
a data set, the compiler includes (by copy) into the source program the library file generated by DASDL. 
The library file contains a complete description of the data set, its sets, automatic subsets, and all of its 
embedded items, data sets, subsets, and sets. The library files must reside on system disk during compila- 
tion. The compiler uses this information to establish the record areas necessary for communication between 
this program and DMSII. The compilation also provides the information needed for verifying the syntactic 
correctness of the DMSII statements used in the PROCEDURE DIVISION of the COBOL program. 


The COBOL compiler always accesses the library files that have the appropriate identifiers at the time of 
compilation. If multiple versions of the library files have been produced, it is important that the versions 
that correspond to the data base versions are the library files loaded at compile time. The versions are 
checked at execution; if the versions are incompatible, the execution of operations against the data base 
are disallowed. 


The object code produced by the compiler includes a communicate to the MCP for each of the DMSII 
statements encountered. All DMSII statements are executed by the DMSII access routines within the MCP. 
Local manipulation of data base items by COBOL statements are handled directly by object code produced 
by the compiler. The object code produced by the COBOL compiler is ready for execution. 


For additional information on COBOL syntax, semantics, options, or compiler operation, refer to the 
B 1700 Systems COBOL Reference Manual, Form No. 1057197. 


DISK FILE STRUCTURES 


All disk files used for DMSII data storage are declared as unblocked, 180-byte records. If it is necessary or 
desirable to print any portion of the data base, an explanation of the file structure is necessary. 


Normal blocking conventions are used. In diagram 1, below, n equals records per block, m equals blocks 
per area, and k equals tables per area. 


Diagram 1: 


n = RECORDS PER BLOCK 


m = BLOCKS k = TABLES 
PER AREA PER AREA 


There are two uncommon disk file structure possibilities. The first of these is that the prime index resides 
in the same file as the data set. Each area is divided into two parts; the first part contains the data set, and 
the second contains tables as in diagram 2. 


Diagram 2: 


The second possibility is that multiple index sequential structures reside in the same disk file. All first-level 
coarse tables are allocated at the front of the file. Additional coarse tables and all fine tables are allocated 
as required. The results constitute a mixture of coarse and fine tables, as diagram 3 illustrates. 


COARSE TABLE A 
COARSE TABLE B 


Diagram 3: 


COARSE TABLE C 


FINE TABLE C 


AREA |] 


DMSII OPERATION AND CONSOLE PRINTER MESSAGES 


DMSII is part of the standard MCP. The only special requirement for execution of a DMSII program is that 
the Data Base Management (DBM) option be set and a Clear/Start performed establishing the DBM environ- 
ment. This option binds special segments into the Central Service Module (CSM) and is required for DMSII 
operation. If the option is not present at the time the data base is opened, an appropriate message is dis- 
played. 


The data base dictionary must be resident on the system disk at execution. If not, a request for its loading 
is displayed. Any attempt to open the data base prior to executing the DASDL INITIALIZE statement 
produces an OPEN operation exception. This exception and most of the other exceptions are returned to 
the user program for appropriate handling. However, if the user program does not have an On-Exception 
branch on the DMSII statement producing the exception, the exception results in the termination of the 
program with an appropriate message displayed. 


When the data base disk files are required, DMSII searches the disk directories for the correct files. If the 
files are not available, a request for the required files is displayed. It is extremely important that the cor- 
rect version of the data files be loaded. When all processing against a data base has terminated, that is, all 
programs have closed.the data base or gone to EOJ, a message is displayed containing the identifying num- 
ber of DMSII operations, the number of physical disk reads, the number of physical disk writes, the number 
of exceptions, and the processor time spent within the DMSII routines. 


In the format of DMSII console printer messages, job-specifier is simply used to identify the job for which 
the message is intended. 


A terminal-reference indicates that a termination message will be printed. Any time this is indicated, the 
program must be discontinued; except when the MCP TERM option is set causing the program to terminate. 
automatically. The terminal-reference format is: | 


(mix-index): S = (integer), D = (integer) 
(@...@, @...@) DSor DP 


S indicates the segment number and D indicates the displacement number. 
For further information refer to the B 1700 System Software Operational Guide, Form No. 1068731. 
DMSIT ERROR MESSAGES 


DMERROR — DFH STILL IN CHAIN (system malfunction at close-time) 


DMS END --- ‘integer ) OPERATIONS < integer) READS integer) WRITES and (integer \ 
EXCEPTIONS IN < time) 


IO ERROR — DMS WRITE ON STRUCTURE NUMBER (integer) 
¢ job-specifiery — BAD FILE NUMBER (incorrect data base DICTIONARY) 


( job-specifier) — PROGRAM DATA BASE VERSION MISMATCH --- RECOMPILATION OR 
CORRECT DICTIONARY REQUIRED 


( job-specifier) DMS FILE VERSION MISMATCH ON < data-file-name) -- VERSION ON DISK 
IS data, time) -- VERSION REQUIRED IS (date, time) 


( job-specifier > (data-base-name) DATA BASE IS ACTIVE - - - (data-base-name) DATA BASE 
MAY NOT BE OPENED | 


( job-specifier) (data-base-name) DATA BASE IS NOT INITIALIZED 
(job-specifier) (data-base-name ) DATA BASE IS NOT AT V.0 LEVEL 


| job-specifier ) ( data-base-name> [DICTIONARY IN USE RECOVERY oe ON DATA 
| ‘BASE (data- -base-name | 


DBM OPTION NOT SET OR CLEAR START REQUIRED - 
4 job-specifier) — FILE <« data -file-name > IN USE | 

oe job-specifier) _ INSUFFICIENT DISK SPACE FOR DATA MANAGEMENT 

_ (job-specifier) — INVALID STRUCTURE NUMBER (incorrect data base ean 
(job-specifier) — NO FILE (data- -base-name) (DICTIONARY | 

| . job-specifier) — NO FILE (data -file-name) 


(job-specifier') — NO PROVISION FOR DMS {DMSTATUS category) EXCEPTION — 
<terminal-reference > 


- Ciob-specifier) 


DATA BASE INTEGRITY 


DMSII provides several integrity checks to assist the user in protection of a data base. Each COBOL pro- 
gram accessing a data base is compiled with a specific data base description (referred to as a version) 
associated with the data base. The version is checked by the system at each execution to ensure the data 
base dictionary version is the same version as the program. If the versions do not agree, the program is not 


allowed access to the data base. A version check is made for each structure at the first seques! to access 
that structure. 


NOTE 


Version checking can be omitted by inserting at DASDL compilation time 
the $ NO VERSIONCHECK option card. This is usually done while testing 
the data base, and then only if multiple DASDL executions do not change 
the data base structure numbers or data sizes. Physical parameters, however, 
can still be changed when verison checking has been’ suspended. 


The version of a data base file corresponds to the last time the data base was updated. The version informa- 
tion is maintained by DMSII both in the disk file header and the data base dictionary. The disk file header 
version is updated at the first file update and at the close of an updated file. The data base dictionary ver- 
sion is updated at the close of an updated file. The data base dictionary contains a flag that is set when an 
update occurs, and is reset when all files having been updated are legitimately closed. This allows DMSII 
the ability to prevent the use of a data base dictionary if a system failure or a Clear/Start occurs during the 
updating of any files of the data base. When a system failure is recognized by DMSII, a message requesting 
the recovery of the data base is displayed on the console printer. This is accomplished by reloading the last 
version of all updated files, including the data base dictionary. Also, if the version contained in the disk file 
header does not match the data base dictionary version of the file, the file is not opened and a message is: 
displayed on the console printer requesting the correct.version of the file. The DMSII assumes, for checking 
purposes, that the data base dictionary contains the correct versions. Therefore the data base dictionary file 
is the central file of the data base and should be saved prior to any update attempt. 


LIBRARY MAINTENANCE OF DMSII FILES 


In order to protect against the loss of a data base, it is necessary to periodically save a copy of the data base. 
If system failure occurs during execution of a program that updates the data base or if the disk files are lost 
or suspected of containing invalid information, the data base must be recovered. 


All DMSII files are declared as unblocked, 180-byte records to facilitate the utilization of the standard 
utilities on these files. SYSTEM/LOADDUMP can be used to save and restore copies of the data base when 
needed. 


Whenever updates to the data base are performed, the data base dictionary file can also be updated. Asa 
consequence it is important to save the dictionary file when any data base files are saved. The dictionary 
file is the central file in the data base. 


At all times the data files must be the same update level as the dictionary file. If, however, a data file has 
not been updated since it was last saved, it is not necessary to save it again. Care must be used in making 
this decision as some of the control fields for lists reside in the owner data set. 


MEMORY DUMPS 


MCPII/ANALYZER has been expanded to list DMSII information whenever memory is dumped while a 
data base is open. There are two sections of DMSII information in a system dump. The first is the global 
information maintained by DMSII which includes the following: | 

a. Pointers to DMS tables and linked lists. 

b. Statistics for data base activity. 

c. Data base file-identifier. 

d. All DMSII disk file headers in use. 

e. All in-use structures. 

f. Current records and paths for each structure. 

g. Lock descriptor table (buffer descriptors). 

h. All buffers in memory. 
The second section is associated with user programs in the mix. Each program using the data base has a 
description of a temporary storage area called the DMSII work area. This work area contains the DMSII 


state information while it executes a data base operation for this program. The record areas associated with 
each invoked data set are contained within the base and limit register of the program. 


ees 


Appendix B. DASDL PHYSICAL STRUCTURES 


The following DASDL physical structures are examples containing coding syntax, diagrams, and semantics. 
DISJOINT DATA SET EXAMPLE 
Coding Syntax: 


STANDATASET DATA SET ( 
KEY-FIELD NUMBER (10); 


DATA-FIELD ALPHA (18) 
); 
Diagram: 
STANDATASET DATA SET | 
‘RECORD 1 
RECORD 2 ~—BLOCK 1 
RECORD 3 
RECORD 4 
RECORD 5 »>— BLOCK 2 
RECORD 6 
Semantics: 


a. Records are not ordered. 
b. Blocks are not linked together. 
c. Available space list maintained in records within the data set. 


d. In this example, there are three records per block. 


INDEX RANDOM EXAMPLE 


Syntax: 


Diagram: 


D DATA SET ( 
KEY-FIELD NUMBER (10): 
DATA-FIELD (18) 


S RETRIEVAL SET OF D KEY (KEY-FIELD): 


DATA RECORDS };1 


SET S | DATA SET D 


Semantics: 


MODULUS represents the number of basic tables in the set S. 


Each table entry contains a symbolic key and an address pointing to the corresponding record in 
the data set D. | | 


Empty entries always reside at the end of the table. 
LOADFACTOR indicates the degree of sharing of overflow tables that is allowed. When 
LOADFACTOR equals 50, it indicates that 50 percent of an overflow table is filled by any base 


tables which overflow, before another overflow table is allocated. 


COUNT is comprised of 16 bits, OFLO POINTER is comprised of 24 bits, and each ADDRESS is 
comprised of 32 bits. 


INDEX SEQUENTIAL EXAMPLE 
Coding Syntax: 
D DATA SET ( 
KEY-FIELD NUMBER (10); 
DATA-FIELD ALPHA (18) 


); 
S ORDERED SET OF D KEY (KEY-FIELD); 


Diagram: 
SET S 
| COUNT 
| ADDRESS/KEY _| KEY 
COARSE pecan a 


RESERVED 


Semantics: 


a. Coarse table entries point to a lower level of coarse tables or to fine tables. Fine table entries. 
point to data records in the associated data set. 


b. Entries within both tables are in sequence on key value. 
c. Table entries consist of addresses and keys. 


d. LOADFACTOR specifies the percentage of entries of a fine table which will be filled before 
another fine table is allocated. For example, if the LOADFACTOR is 50 percent, half of the fine 
table will be left empty on an initial load for new insertions into the table. Thus, splits may be 
reduced or eliminated. 


e. Ifa coarse table is full when an attempt is made to add another entry, the coarse table is split into 
two coarse tables, based on the SPLITFACTOR. For example, given a SPLITFACTOR of 60 per- 
cent, 60 percent of the entries of the original coarse table will be moved to the new coarse table, 
leaving 40 percent in the original coarse table. The normal coarse table split separates duplicate 
key entries. The split is adjusted so all duplicates remain in the same table. Overflow techniques 
are not used. 


f. COUNT is comprised of 16 bits, addresses for coarse tables are 24 bits, and addresses for fine 
tables are 32 bits. | | 


g. The key (KEY-FIELD) may be in modified form if it is in detendins sequence or a signed number 
h. AUDIT SERIAL is 32 bits in length and is required. 

UNORDERED LIST-EMBEDDED DATA SET EXAMPLE 

Coding Syntax: 


D DATA SET ( 
KEY-FIELD NUMBER (10); 
DATA-FIELD ALPHA (18); 
E UNORDERED DATA SET ( 
DATA-E ALPHA (18) 
) 
y 


Diagram: 


DATA SET E 


RECORD 1 
RECORD 2 > BLOCK 
RECORD 3 


ELEMENT 1 
ELEMENT 2 
ELEMENT 3 
ELEMENT 4 


Semantics: 


a. The above diagram, which shows an example of an embedded data set as an unordered list, is 
composed of a collection of tables. Entries within the tables are not ordered. 


b. Table entries consist of data records for DATA SET E. 

c. Tables are linked together using NEXT and PRIOR fields. 
d. All entries within a table belong to the same owner. 

e. FIRST and LAST point at tables for an owner. 

f. When a table becomes full a new table will be linked in. 


g. FIRST, LAST, NEXT, PRIOR are comprised of 32 bits and COUNT is comprised of 8 bits. 


UNORDERED LIST -- SUBSET EXAMPLE 


~ Syntax: 


D DATA SET ( 
KEY-FIELD NUMBER (10); 
DATA-FIELD ALPHA (18); 
S SUBSET OF D 


)5 
Diagram: 


This diagram is the same as the preceding diagram except for the following change to TABLE 


Semantics: 


a. The semantics for a subset, as an unordered list, are the same as the semantics for an embedded 
data set, as an unordered list, except for table entries, which consist of an address only. 


ORDERED LIST - EMBEDDED ORDERED DATA SET EXAMPLE 
Coding Syntax: 
D DATA SET ( 
KEY-FIELD NUMBER (10); 
DATA-FIELD ALPHA (18); 
E ORDERED DATA SET ( 
KEY-E NUMBER (10); 
DATA-E ALPHA (18); 


) 
SET-E ACCESS TO E KEY (KEY-E) 
); 


Diagram: 


This diagram is the same as the preceding two diagrams except for the following change to TABLE: 


| DATA-E KEY-E | 


Semantics: 
a. Entries within the table are ordered by key value. 
b. Table entries contain DATA-E. There will be a separate key entry for KEY-E if: (a), the key 
consists of multiple non-contiguous items; (b), any item is in descending sequence; (c), any item 


is a signed number. Otherwise, the key item in the record is used. 


c. Semantic items c, d,e,f,g,h, and i for an embedded data set as an unordered list also apply for 
an embedded ordered data set as an ordered list. 


d. Full tables can be split in order to maintain ordering. 
ORDERED LIST - SUBSET WITH A KEY EXAMPLE 
Coding Syntax: 
D DATA SET ( 
KEY-FIELD NUMBER (10); 
DATA-FIELD ALPHA (18); 
S SUBSET OF D KEY (KEY-FIELD) 
); 


Diagram: 


This diagram is the same as the preceding three diagrams except for the following change to TABLE: 


TABLE 


KEY - FIELD RECORD ADDRESS 


Semantics: 
a. Entries within the table are ordered by Key value. 
b. Table entries contain KEY-FIELD and an address. 


c. The key (KEY-FIELD) may be in modified form if any items of the key are in descending 
sequence or a signed number. 


d. For asubset with a key, semantic items c, d, e, f, g, h, and i for an embedded data set as an 
unordered list also apply. 


e. Full tables can be split in order to maintain ordering. 


Appendix C. DASDL GLOSSARY 


The following definitions are intended to give a working description of the terms used in the DASDL sec- 
tion of this manual. 


TERM DEFINITION 
ACCESS A method to reach a desired record of a data set. 
DATA SET A collection of related records. Only data sets have records. 
DEADLY EMBRACE A programmatic condition where two or more programs are 
simultaneously attempting to lock (prohibit access to) a data 
record. 
DISJOINT The condition of non-reliance of data sets on the highest level, that 


is, a data set which is not an item within a data set. Data sets and 
sets are the only structures that are disjoint. Disjoint sets can only 
refer to disjoint data sets. 


EMBEDDED The condition of being dependent on a data set that is on a higher 

(INNER LEVEL) level; that is, a data set which is an item within a data set. An 
embedded data set can only be referenced by an embedded set on 
the same level. 


INDEX A table of pointers to a data set used to provide specified access 
— toa data set. 
MASTER, PARENT, A data set record which has dependent data sets is referred to as 
or OWNER either the master, parent, or owner of the records of the dependent 


data set. A “master” may itself be a record in an embedded data 
set. An embedded data set cannot be accessed without accessing 


the master. 

MEMBER An occurrence of a record of a data set is a member of that data 
set. 

ORDERED Maintained in a sequence depending on the value of user-specified 


fields based on a collating sequence. 


PATH An access to a data set record. One instance is a path. A set is an 
index of paths. 


POPULATION The number of records in a data set. If it is an embedded data set, 
population is the number of records in the embedded data set per 
occurrence of its master. 


PROPERTIES The physical structure and parameters of a data set, set, or subset, 
| such as storage requirements or structure type. | 


TERM 
RECORD 
SCOPE 
SET 


SPAN 
SPLITTING 
SUBSET 


UNORDERED 


DEFINITION 
A record contains all the information that pertains to an entity. 
The range of influence of a data set, set, or subset. 


An index of paths to a data set, with a pointer to each record of 
that data set. | 


A set points to all records of a data set. A subset need not point 
to all records of a data set. A subset may only point to some of the 
records of a data set. 


The method of inserting a new path into a set. The index table is 
split into two tables rather than through the use of overflow 
techniques. 


A list of paths to records of a data set. The specified records of the 
data set to be referenced must be programmatically inserted into 
the subset. 


Not maintained in a user-specified order. 


Appendix D. DASDL ERROR MESSAGES AND WARNINGS 


INTRODUCTION 
The following are lists of error messages and warning messages that can appear on a DASDL output listing. 


The bracketed word, ( integer » , 1s replaced by the structure number. The structure number is assigned 
automatically by the compiler to each structure. This number is printed on the DASDL output listing if 
S$STRUCTURE is specified, and it always appears on the COBOL listing. 


The bracketed word, ¢ string) , is replaced by a reserved word. 
NOTE 


If the delimiters such as commas, parentheses, or semicolons are 
misplaced or omitted, the error message can be misleading, and might 
not indicate the actual error. 


WARNING MESSAGES 
ATTRIBUTE CHANGED AFTER BEING SET ONCE 
FILLER ADDED TO PREVIOUS ITEM 
POPULATION OVERFLOWED ON STRUCTURE NUMBER integer 1,000,000 USED INSTEAD 


SEQUENCE ERROR 


ERROR MESSAGES 


ILLEGAL SPECIAL CHARACTER 

UNEXPECTED TOKEN IN CONDITIONAL EXPRESSION 
INVALID ORDERING KEY FIELD 

OPERANDS ARE NOT OF THE SAME TYPE 
VERSION MISMATCH, UPDATE NOT DONE 
AREASIZE EXCEEDS 2 EXP 16 — 1 

BLOCKSIZE EXCEEDS 2 EXP 7 — 1 

TABLESIZE EXCEEDS 2 EXP 16 — 1 

MAXIMUM SIZE FOR NUMERIC KEY EXCEEDED 
DECLARED NUMBER SIZE TOO LARGE 
POPULATION EXCEEDS 2 EXP 20 — 1 

MORE THAN 16 INDEXES IN ONE FILE 


TABLESIZE EXCEEDS 255 

COBOL KEY WORD ENCOUNTERED 
EOF DDL/DICT — READ © 

EOF DDL/DICT — WRITE 


PARITY ERROR DDL/DICT — WRITE 

DATA NAME DICTIONARY OVERFLOW 
DUPLICATE FILE NAME-COMPILE ABORTED 
DUPLICATE IDENTIFIER FOUND 

ONLY ONE VERIFY CLAUSE PER DATA SET 
DELIMITERS “)” , **;’ OR KEY WORD DUPLICATES REQUIRED HERE 
EQUATE SYMBOL EXPECTED NOT FOUND 
ITEM TYPE KEY WORD EXPECTED 

MISSING KEY NAME _ 

NUMBER EXPECTED NOT FOUND 
ATTRIBUTE KEY WORD REQUIRED HERE 


SIZE OF IDENTIFIER EXCEEDS 17 CHARACTERS 
INCORRECT ATTRIBUTE FOR THIS DECLARATION ~ 
NUMBER OF BUFFERS MUST BE GEQ 3 AND LEQ 100 
ILLEGAL DECLARATION FOR SUBSET KEY NAME 

THIS ITEM NOT ALLOWED IN GROUP ITEM 

SUBSET MAY NOT REFERENCE EMBEDDED DATA SETS 
NUMBER OF IODESCRIPTORS MUST BE GEQ 2 AND LEQ 20 
THIS NAME IS ILLEGAL AS A KEY NAME 

REQUIRED DATA ITEM MAY NOT BE SUBSCRIPTED. 
ILLEGAL $CARD OPTION ENCOUNTERED 

SUBSCRIPTED DATA ITEM MAY NOT BE REQUIRED 
UNEXPECTED KEY WORD 

VERIFY NOT ALLOWED ON SUBSET 

RESTART DATA SET MAY NOT BE EMBEDDED 


STRUCTURE NUMBER (integer) MAY NOT BE IN A DATA SET FILE UNLESS IT IS MADE THE 


PRIME INDEX | 

INDEX SEQUENTIAL TABLE SIZE EXCEEDS AREA SIZE FOR FILE 
DATA ITEM NAMES AND GROUP ITEM NAMES ARE ILLEGAL HERE 
NO OTHER STATEMENTS MAY FOLLOW INITIALIZE STATEMENT 


LITERAL IS LARGER THAN OPERAND 

DECLARATION FOR KEY NAMEIN SUBSET DECLARATION NOT FOUND 
DATA SET REFERENCED BY SUBSET NOT FOUND 

MISSING ORDERING KEY 


ACCESS PATH CANNOT BE CHANGED 

MISSING COMMA 

COMMENT NOT ALLOWED IN THIS CONTEXT 

DATA SET NAME NEEDED HERE 

IDENTIFIER EXPECTED NOT FOUND 

IDENTIFIER NOT FOUND OR UNDEFINED 

EMBEDDED DATA SETS AND SUBSETS NOT ALLOW IN RESTART DATA SET 
TYPE ON EMBEDDED DATA SET MISSING ORDERED OR UNORDERED REQUIRED HERE 
KEY TYPE MAY BE MISSING OR MISSPELLED 

LISTS AND DATA SETS MAY NOT BE MIXED 

MISSING LEFT PARENTHESIS 

ORDERING KEY NAME NEEDED HERE 

MISSING OPERATOR IN CONDITIONAL CLAUSE 

KEY WORD ORDERED OR UNORDERED REQUIRED 

RETRIEVAL KEY NAME NEEDED HERE 

MISSING RIGHT PARENTHESIS 

KEY WORD ALL REQUIRED HERE 
KEY WORD DATA REQUIRED HERE OR KEY WORDS ORDERED OR RETRIEVAL REQUIRED 
KEY WORD FOR REQUIRED HERE 

MISSING KEY WORD KEY 

KEY WORD OF REQUIRED HERE 

KEY WORD ORDERED REQUIRED HERE 

KEY WORD SET REQUIRED HERE 

KEY WORD TIMES REQUIRED HERE 

KEY WORD TO REQUIRED HERE 

KEY WORD TRAIL REQUIRED HERE 

KEY WORD UNORDERED REQUIRED HERE 

RESERVED WORD WHERE REQUIRED HERE 

MISSING SEMICOLON 

SLASH REQUIRED BETWEEN FILE NAMES 


AREASIZE FOR STRUCTURE NUMBER (integer) EXCEEDS 65,535 


SUBSCRIPTED DATA ITEMS MAY NOT BE USED AS KEYS» 
ILLEGAL TOKEN IN OPTION STATEMENT | 


ILLEGAL ITEM IN PARAMETER LIST 


NUMBER TOO LARGE — MAX 8 CHARACTERS 

VALUE IN OCCURS EXCEEDS 1023 

ATTEMPTED TO ASSIGN NEW VALUE TO POPULATION 
ONLY ONE DATA SET IS ALLOWED IN A FILE - 

ONLY ONE KEY ALLOWED IN AN EMBEDDED SET 


ONLY ONE INDEX IS ALLOWED WITH A DATA SET 


THIS INDEX MUST BE IN A FILE BY ITSELF 

THIS LIST MUST BE IN A FILE BY ITSELF 

ORDERED DATA SET MUST HAVE AN ACCESS PATH 

ORDERING TYPE AND/OR ITEM NAME LIST MISSING — 

“ REQUIRED ON CONTINUATION CARD 

AREASIZE MAY NOT BE LESS THAN BLOCKSIZE 

AUDIT FILE AREASIZE MUST BE 2 OR MORE | a 
A STRUCTURE IDENTIFIER MAY ONLY APPEAR IN ONE FILE STRUCTURE LIST 
DESCRIPTION TOO LONG — MAX 172 CHAR 

NUMBER OF AREAS EXCEEDS 105 7 

BITS PER BLOCK EXCEEDS 65,535 IN STRUCTURE NUMBER integer) 


UNDEFINED IDENTIFIER 


UNEXPECTED PARENTHESIS ENCOUNTERED 


UNEXPECTED KEY WORD TOKEN SYMBOL ENCOUNTERED 


UNEXPECTED SEMICOLON ENCOUNTERED 
SET MUST APPEAR IMMEDIATELY AFTER DATA SET DESCRIPTION 
UNORDERED EMBEDDED DATA SET MAY NOT HAVE AN ACCESS PATH 


The COBOL Procedure Divisi 
a data base. A brief synopsis 


Appendix E. COBOL EXTENSIONS 


on has been extended to provide an interface between a COBOL program and 
of these extensions is given in table E-1. 


Table E-1. COBOL Extensions 


OPEN 


FIND 


MODIFY 


STORE 


DELETE 


FREE 


CLOSE 


CREATE 


RECREATE 


INSERT 


REMOVE 


j 


Used to open a data base for subsequent access and to 


specify access mode. A data base can not be accessed until 
it has been opened. 


Used to read a record from a data set. 
Same as FIND, except the record is locked against 
concurrent modification by another user. 


Used to write a new record into a data set or to replace an 


existing record in a data set with a modified copy of that 
record. 


Used to remove a record from a data set. 
Used to unlock a record. 


Used to close a data base when further access is no longer 
required. 
Used to initialize the record area of a data set. 


Used to initialize the data set, set, and subset items of the 
record area of a data set. All data items remain unaltered. 


Used to insert a record into a manual subset. 
Used to remove a record from a manual subset. 


Appendix F. QUALIFYING A DATA BASE DESCRIPTION 


Unique identifiers are required in COBOL programs. If a data set is invoked more than once, different 
internal names must be used in order that items within the data set can be appropriately qualified. 


A variable declaration with the same name as a data base item can be used only if the item is able to be 
uniquely qualified. 


In a selection expression, sets and subsets require qualification if they are not unique identifiers. Data base 
items in a selection expression need not be qualified. 


Example: 
DASDL 


D1 DATA SET ( 
A NUMBER (5); 
B NUMBER (3)); 
S1 ORDERING SET OF D1 KEY (A); 


COBOL 


DB DBASE. 
01 D1INVOKE D1. 
01 DAINVOKE D1. 


WORKING-STORAGE SECTION. 
77 A FIC 99, (Invalid because it can not be uniquely qualified. ) 
01 Q. 

03 A PIC 99. (Valid because it can be qualified.) 


PROCEDURE DIVISION. 


MOVE A OF D1 TOL. (Valid.) 

FIND S1 OF D1 ATA = L. (Valid.) 

MOVE ATO L. (Insufficient qualification of A.) 

FIND S1 ATA = L. (Insufficient qualification of $1.) 

FIND S1 OF DA AT A OF DA = L. (Valid but A need not be qualified in a selection expression. ) 


Appendix G. B 1700 — B 6700/B 7700 DMSIT COMPATIBILITY 


The relationship of B 1700 DMSII to B 6700/B 7700 DMSII is as follows: 
a. B1700 DMSII is a logical subset of B 6700/B 7700 DMSII. 


b. Any COBOL constructs used to access B 1700 DMSII are syntactically and semantically com- 
patible with B 6700/B 7700 DMSII. 


c. Any physical data bases developed on the B 1700 DMSII are not compatible with B 6700/B 7700 
formats. 


d. The ordered embedded data set, together with its access set of B 1700 DMSII, is not supported 
by B 6700/B 7700 DMSII. However, the identical COBOL capability is provided by making an 
ordered embedded data set an unordered embedded data set together with a set on B 6700/B 7700 
DMSII. | 


e. The physical mapping algorithms on the two systems differ significantly and the physical mapping 
parameters should be reviewed carefully prior to transfer from B 1700 DMSII to B 6700/B 7700 
DMSII. For example, B 1700 DMSIT SPLIT FACTOR, STORAGE, and PRIME generate warning 
messages, and are then ignored on the B 6700/B 7700 series systems. 


f. Ordered and retrieval set types are not meaningful on B 6700/B 7700 BDMSII. They produce a 
regular B 6700/B 7700 DMSII set. 


g. DASDL Parameters differ significantly, and there is no direct correspondence between B 1700 
DMSII and B 6700/B 7700 DMSII. 


Data bases should be remapped and must be reloaded at the time of transfer to B 6700/B 7700 DMSII. 
However, any DMSII statements in COBOL programs developed for B 1700 DMSII are valid on B 6700/ 
B 7700 DMSII. 


Appendix H. DATA BASE EXAMPLE 


INTRODUCTION 


The development of this example follows the same process used in the development of any data base. The 
first step is to become thoroughly acquainted with the problem, the input and data available, and the output 
or information required. What other information might be desired? What are the processing requirements? 
Are there any time critical or volume critical demands? What are the primary requests? What are the 
entities and their relationships? Identify the major properties of each entity. | 


The data base example is concerned with the business administration department of a small university. The 
major elements of this example are students (MSF), courses (UNIV-COURSES), and personnel (UNIV- 
PERSONNEL). The major component of MSF is achievement by quarter (QUARTER). The achievement 
consists of the courses (CORSES) taken in a given quarter (QUARTER). The students (STUDENTS) 
attending, the books (BOOKS) required, and the professor (PROFESSOR) teaching are the major attributes 
of university courses (UNIV-COURSES). University personnel (UNIV-PERSONNEL) are of interest due to 
the courses (CORSES) taught. The supervisor (SUPR) is also of interest. 


The next step is to draw a diagram of the data base similar to the one illustrated in Figure H-1. All major 
entities are shown as boxes, MSF, UNIV-PERSONNEL, and UNIV-COURSES. It is then possible to deter- 
mine for each major property of these items whether it is a new entity or a relationship between existing 
entities. All new entities become boxes (QUARTER, CORSES, and BOOKS). CORSES is a particular 
student achievement in a particular class in a particular quarter. Thus, it is an entity, not a relationship to 
UNIV-COURSES. | | 


These entities which have just been added to the data base are connected to their major entities by means 
of a broken line. This indicates that they have meaning only when taken in context of a major entity. For 
example, it is only meaningful to examine BOOKS in context of a particular UNIV-COURSES. 


The output of DASDL code is the final step. Remaining, is the optimization of the data base. There are 
two parts to this: one, optimizing the logical structures, and two, optimizing the physical mapping. The 
addition of ADR is an example of logical optimization. This type of optimization may continue through 
testing of the data base. However, these changes may require changes to any programs which have been 
developed to interface to that part of the data base. 


Modifications to the physical mapping should not begin until after the default mapping has’been reviewed. 
Testing and performance measurement also indicates where optimization is required. However, a permanent 
data base does not exist until all modifications have been made. COBOL programs do not require changes 
for physical optimization, although recompilation can be required. 


Figure H-2 contains a DASDL listing of the UNIV data base; Figure H-3 is a COBOL program intended to 
access the UNIV data base. Also included is an explanation of the identifiers used in the UNIV data base 
example. 


STUAD (STUDENTS ONLY) 
FACAD (FACULTY ONLY) © 
ADMAD (ADMINISTRATION ONLY) — 


SSNUM 
NAME 


-§NO 


UNIV- 
PERSONNEL 


ADDRESS 


COURSES: 


HOME-ADDRESS 
PROFESSOR 


UNIV- 
COURSES 


STUDENTS 


CRS-NO 


peagse 
2 | 
| ats 


GCRS 


TYPECOURSE —- | 
— , CORSES 


Figure H-1. UNIV Data Base Diagram 


“os 


All the relationships are represented by solid arrows connecting two entities. Thus, STUDENTS, PROFES- 
SOR, COURSES, and SUPR are added to the data base. GCRS (a pointer to UNIV-COURSES) is also added 
for access to common information about the UNIV-COURSES from a particular CORSES record. 


The address of a student (MSF) or UNIV-PERSONNEL would usually be thought of as a group item with 
the record of MSF or UNIV-PERSONNEL. However, by reviewing the volume of information and the 


infrequent use of the information, the data base may be optimized. All addresses (ADR) are stored in a 
separate data set, with pointers from MSF and UNIV-PERSONNEL to the appropriate ADR. 


The last addition to the diagram is to indicate for each entity and relationship the keys which are of interest. 
These Keys allow access to the records in order of key value. The keys of interest are added to the diagram 
by means of short arrows. The new additions are SNO of ADR, SSNUM and NAME of UNIV-PERSONNEL, 
CRS-NO of UNIV-COURSES, SSNO of MSF, LNAME and FNAME of STUDENTS, QTR of QUARTER, 
and TYPECOURSE of CORSES. Of special note is the requirement to access addresses by type of person. 
This leads to the definition of three different access paths to ADR: one for students only, one for faculty, 
and one for administration. These paths are referenced as STUAD, FACUD, and ADMAD of ADR. 


When the data base diagram is completed, the next task is to translate it into DASDL. The mapping is as 
follows: | 


a. All-boxes (entities) are data sets; those that are connected by broken lines become embedded data 
sets. Thus, CORSES is an embedded data set of QUARTER which in.turn is an embedded data 
set of MSF. 


b. All arrows (relationships) between two entities become manual subsets. For example, PROFES- 
SOR is a manual subset of UNIV-PERSONNEL. 


c. All short arrows on disjoint data sets having conditions for inclusion become automatic subsets. 
For example, STUAD is the address of only the students. 


d. All other arrows on disjoint data sets are subdivided into those.on which access of the records in 
order of the key value is required, and those which have no ordering requirements. All of the 
former map into ordered sets; the latter become retrieval sets. For example, MSFSET is an 
ordered set providing access to MSF in SSNO sequence. An ordered set also allows access by key 
value. Thus, for example, it is valid to retrieve a MSF record where SSNO = 123456789. 


e. All arrows on embedded data sets are mapped as access sets. For example, TYPECOURSE is 
mapped by CSET of CORSES. | 


f. All arrows on subsets add a key structure to that manual subset. 


g. A further requirement.added to the DASDL input is that all courses must have a positive number 
of credits assigned to them, have a class size less than or equal to 60, and have some professors 
assigned to teach the class. This is expressed by the VERIFY clause. The requirement that 
TYPECOURSE and GRADE be known for all students (MSF) CORSES is indicated by the 
REQUIRED option. This is an indication of the validity-checking options available for usage in 
the example. | 


3 UNIV 


DATA BASE 


eSLIST SINGLE 


- SSSUPPRESS : 

MSFILE STRUCTURE | 

tXTHTS DASOL PROGRAM GIVES EXAMPLES ; 
mXOF THE VARIOUS CONSTRUCTS USED IN 

sXDASDL TO DESCRIBE A DATA ener 


00000100 
000001450 
00000200 
00000300 
00000400 
00000600 
00000700 
00000800 


00000900 
00001000 


00001100 
00091200 
00001300 
00001400 
00001590 
00001600 
00001700 
00001800 
00001900 
00002000 
00002100 

00002200 
00092300 
00002400 
00002500 
00002606 
00002700 


00002800 | 


00002900 
00003000 
00003100 
00003200 
00003700 
00003750 
00003800 
00003900 
00004000 
00004100 
09004200 
00004300 
00004400 
00004500 
00004600 
00004700 
00004800 
00004900 
00005009 
00005100 


00005200 — 


00005300 
00005350 
00005400 
00005500 


== 00005600 


00005700 
00005800 


Se ere dete a HOT NG SA ee gh ae SE eg YO g Ce Oe OE end eae Gy a he ey ee 
~ . z - 


PPARAMETERS( | 
: BUFFERS @ {60 = 8 )3 
sUNTV®COURSES DATA SET YMAIN FILE" ¢ 


CRS@#NAME GROUP (¢. 
DEPARTMENT ALPHAC2)9 
LEVEL NUMBER(3)¥9 
CRSe®NO NUMBER(4))) © 

NOPROF NUMBER(2)) 

DAYS#OFeWEEK GROUP ¢ 
MON NUMBER(1)3 
TUES NUMBER(4)} 
WEDS NUMBER(1)3 
THURS NUMBERC1)3 
FRY NUMBER(4)) 
SAT NUMBER(1)) 

BUILDING NUMBER(3)9 

RQOOMNUMBER ALPRA(CA) 2 

COURSENAME ALPHA(24)3). 

FLAG@BITS ALPHAC{12)3 

HOURSCRDT NUMBER(4)? 

CLASS#SIZE NUMBER(2); 

PROFESSOR SUBSET OF UNI V@PERSONNEL, poeceanen 2 3) 

BOOKS UNORDERED DATA SETC. 

LC NUMBER(9)) 
TITLES ALPHA(60)3 
~~ AUTHR ALPHAC30))3 

STUDENTS SUBSET OF MSF KEY IS 
(LNAME,FNAME DUPLICATES, 

POPULATION = 300) 

POPULATION @ 1000 


VERTFYCCHOURSCROT GTR 0 AND CLASS@SIZE LEQ 60) AND NOPROF NEG Os 


UNTVeCmSET ORDERED SET OF UNIV=COURSES KEY IS (CRS=NO)) 


UNIV®PERSONNEL DATA SET ¢ 


NAME GROUP ( 
LASTNAME ALPHA({5)3 
FIRSTNAME ALPHA(10))3 
SEX NUMBER(1)5 
AGE NUMBER(2)) 
SSNUM NUMBER(9)3 
DPT ALPHAC4) 3 
RANK ALPHA(C¢)) 
SALARY NUMBER(87,2)) 
COURSES SUBSET OF UNLV=COURSES, POPULATION & 69. 
AMORES SUBSET OF ADR) | 
SUPR SUBSET OF UNTV*=PERSONNEL) 9) 
SS-UeP ORDERED SET OF UNIV#PERSONNEL KEY IS (SSNUM)) 
UsePeSET ORDERED SET OF UNIVePERSONNEL KEY IS. 
(LASTNAME »FIRSTNAME) DUPLICATES) 
DATA SET¢ 
SSNO NUMBER(9)) 
NONAM NUMBER(1)3 
LNAME ALPRAC30)3 
MNAME ALPHAC30)3 
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00005900 
00006000 
00006100 


00006200 


00006300 
00006400 
00006800 
00006600 
00006700 
00006800 
00006900 
00007000 
00007100 
00007200 
00007300 
00007400 
00007500 
00007600 
00007700 
00007800 
00007900 
00008000 
00008033 
00008066 
00008100 
00008200 


00008300 | 


00008400 
00008500 
00008600 
00008700 
00008800 
00008850 
00009000 
00009100 
00009200 
00009300 
00009400 
00009500 
00009600 
00009700 
00009800 
00009850 
00009900 


00009910 sSTUAD SUBSET OF ADR WHERE CFACULTY@STUDENT FOL 1) KEY ITS (ZIFC,SNO) 


00009920 32 


00009930 
00009940 


00009950 1ADMAD SUBSET OF ADR WHERECFACULTY*STUDENT EQu 3) KEY IS ¢ZIPC,S8NO) 


00009960 
00010500 
00010600 
00010650 
00010700 
00010800 
00010850 
00010900 
00011000 
00011100 
00011150 
00011200 


iad SUBSET OF ADR WHERE CFACULTY=STUDENT EQL 2) KEY IS (¢(zIPC,SNO) 


SAD 


FNAME ALPHAC30)2. 

CAMPUS*ADDRESS GROUP ¢ 
DORM ALPHACO)) — 
ROOM NUMBER (4), 
POBOX NUMBERCM)) 
PHONE. NUMBER(7))) 


ND NUMBER(¢2)) 


DEGREE ALPMACR). OCCURS 6 TaMees 
TOTHRS NUMBER(3)) 
TOTQGP NUMBER(3)) 7 
GRADE=POINT@AVG NUMBER(3,2)93 
MJR NUMBER(S) 9 
AMJR ALPHAC{6)3 
SSEX NUMBER(1)3 
SAGE NUMBER(C2)) 
HOME*ADORESS SUBSET OF ADR} 
QUARTER | ORDERED DATA SET¢ 
QTR ALPHACG)) 
QTTRHRS NUMBER(2)) 
ATRAP NUMBER(2)9 
CORSES ORDERED DATA SETC 
TYPECOURSE NUMBER(1) REQUIRED) 
GRADE ALPHA(C2) REQUIRED! 
CR& SUBSET OF UNIV=CGURSESS 
YR NUMBER(2))3 
Q NUMBER(2)3 
GCRS SUBSET OF UNI VeCOURSES) 
GGOD ALPRA(2)3 
TITLE*OF "PAPER ALPHAC3O)) 
PPRGD ALPHAC2))}, 
POPULATION @ 4: 
CSET ACCESS TO CORSES KEY IS 
CTYPECOURSE) OUPLICATES)- 
POPULATION w 5000) | 


OSET ACCESS TO QUARTER KEY I8 (OTR))) 


MSFSET ORDERED SET OF MSF KEY TS (88N0)) 
DATA SET 

FACULTY=STUDENT NUMBER (1) 3 

SNO NUMBER(9) REQUIRED; 

ADLN ALPHA(54) OCCURS 9 TIMES} 

ZIPC NUMBER(S) REQUIRED} 

PHON NUMBER(C{O) 29 


ORDEREN SET OF ADR KEY IS (ZIPC) DUPLICATES; 


SSAD ORDERED SET OF ADR KEY TS (CSNO)) 


rBOOKS¢ 


AREASIZE @ 500, 
TYPE mw UNORDERED LIST, 
BLOCKSIZE = 5)) 


s8OOKFILE STORAGE FOR BONKS¢ 
TITLE s&s UNIV/LIBRARY, 


AREAS # 10)3 


tUNTV=CoSET ( 


TABLESIZE a 12, 
AREASTZE = 10, 
TYPE @ INDEX SEQUENTIAL, 
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DUPLICATES} 
CUPLICATES) 
DUPLICATES} 


00011300 


00011400 


00011450 


00011500 


00011600 


$ LOADFACTOR m 9)) 


PUNT V@PERSONNEL ( 


' POPULATION # 997)) 


PINITIALIZED 


UNTV@COURSES DATA SET 8 

STRUCTURE NUMBER ! 

PRIME = 0 

BLOCKSIZE a @ RECORDS/BLOCK 
AREASIZE ws 292 RECOROS PER AREA 
POPULATION & 1000 RECOROS 
DATASIZE w 424 BITS 

RECORDSIZE = 616 BITS 

Bhveer fens = {1232 


UNIVeC#SET INDEX SEQUENTEAL gett 
STRUCTURE NUMBER 7 

PRIME mf 

TABLESTZE(COARSE) © 14 ENTRIES 
TABLESIZECFINE) = | 12 ENTRIES 
AREASTZE = 10 TABLES PER. AREA 
LOADFACTOR = = &@ PERCENT. 
SPLITFACTOR m 50 PERCENT 
ENTRYSIZE(COARSE) # 40 BITS 
ENTRYSTZECFINE) © 48 BITS. 

BITS PER BLOCK(COARSE) = | 576 
BITS PER BLOCK(FINE) = 592 


PILE sheaasiatess 
FILE NUMBER 2 


AREAS wm 200 | 
AREASTZE = 156 SEGMENTS — 
PACK # re 
TITLE w UNIV = AUNT V@COURS 


PROFESSOR UNORDERED LIST t 
STRUCTURE NUMBER = 2 

AREASIZE w © 50 RECORDS PER AREA 
TABLESTZ2E @ a ENTRIES” 
BLOCKSIZE = 8 RECORDS/BLOCK 
DATASIZE w 32 BIT 


RECORDSIZE @ {a16 BITs. 


ENTRYSTZE = 32 BITS 
BITS PER BLOCK = 11360 


PILE vigecan a t 
FILE NUMBER - 


AREAS @ 20 

AREASIZE : 50 “aeowents | 
PACK = | | 
TITLE. . UNIV - /PROFERBOR 


STUDENTS ORDERED. BET. Le 
STRUCTURE NUMBER 


Figure H-2. DASDL Program Example (Sheet 3) 


AREASIZE = 7500 RECORDS PER AREA 
TABLESTZE = 2 ENTRIES 
BLOCKSIZE = 1 RECORDS/BLOCK 
DATASIZE = 32 BITS 

RECOROSIZE = 1096 BITS 

ENTRYSIZE = S12 BITS 

BITS PER BLOCK = 1128 


FILE INFORMATION ¢ 

FILE NUMBER ui 

AREAS a 20 

AREASIZE = 7500 SEGMENTS 
PACK & 

TITLE # UNIV /STUDENTS 


UNIV@PERSONNEL DATA SET 8 
STRUCTURE NUMBER 3 


PRIME a 1 

BLOCKSIZE = 2 RECORDS/BLOCK 
AREASIZE = 1192 RECORDS PER AREA 
POPULATION 997 RECORDS 


OATASIZE a 320 BITS 
RECORDSIZE z Si2 BITS 
BITS PER BLOCK = 1024 


FILE INFORMATION 8 

FILE NUMBER 5 

AREAS # 20 

AREASIZE = 596 SEGMENTS 
PACK wm | 7 

TITLE w& UNIV /UNITV=PERSO 


COURSES UNORDERED LIST 
STRUCTURE NUMBER 8 

AREASIZE w» 125 RECORDS PER AREA 
TABLESIZE a 42 ENTRIES 
BLOCKSIZE « 4 RECORDS/BLOCK 
DATASIZE a 32 BITS 
RECOROSIZE = {1416 BITS 

ENTRYSIZE ® 32 BITS 

BITS PER BLOCK s 5696 


FILE INFORMATION ] 

FILE NUMBER 6 

AREAS = 20 - sent eked 
AREASIZE ® 125 SEGMENTS 
PACK m a | 
TITLE w UNIV /COURSES 


ADDRES UNORDERED LIST 8 
STRUCTURE NUMBER 9 

AREASIZE 9 £25 RECORDS PER AREA 
TABLESIZE = 42 ENTRIES 
BLOCKSIze. s 4 RECORDS/BLOCK 
DATASIZE s 32 BITs 
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RECORDSIZE § 1446 BITS 
ENTRYSIZE @ 32 BITS. 
BITS PER BLOCK 8 S696 


FILE INFORMATION : 
PILE NUMBER 7 


AREAS # 20 | 
AREASIZE 8 {125 SEGMENTS 
PACK = | - 
TITLE # UNIV © /ADDRES 


SUPR UNORDERED LIST 

STRUCTURE NUMBER 11 

AREASTZE = 125 RECORDS PER AREA 
TABLESIZE & 42 ENTRIES 
BLOCKSIZE @ 4 RECORDS/BLOCK 
DATASIZE = 32 BITS” 

RECORDSIZE & {416 BITS 

ENTRYSIZE = 3@ BITS 
BITS PER BLOCK mw 5696 


FILE INFORMATION 3 
FILE NUMBER & 


AREAS m 20 

AREASIZE & 125 SEGMENTS 
PACK s 

TITLE w@ UNIV /SUPR 


MSF OATA SET 3 

STRUCTURE NUMBER 6 

PRIME s 0 

BLOCKSTZE =» 4 RECORDS/BLOCK — 
AREASIZE = 1191 RECORDS PER AREA 
POPULATION @ 10000 RECORDS 
DATASIZE # 1276 BITS | 
RECORDSIZE = 1404 BITS | 

BITS PER BLOCK a 1404 


MSFSET INDEX SEQUENTIAL SET ' 
STRUCTURE NUMBER 19 

PRIME @ { 

TABLESIZE(COARSE) 8 143 ENTRIES 
TABLESTZECFINE) =» 119 ENTRIES 
AREASIZE & 12 TABLES PER AREA 
LOADFACTOR = 66 PERCENT 
SPLITFACTOR = 49 PERCENT 
ENTRYSTZE(COARSE) & 60 SITs 
ENTRYSTZECFINE) & 72 BITS 
BITS PER BLOCK(COARSE) & 8596 
BITS PER ALOCKCFINE) sw 8584 


FILE INFORMATION 8 

FILE NUMBER 9 

AREAS = e290 

AREASIZE 2 1263 SEGMENTS 
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PACK @ _ 
TITLE w UNZV /MSP 


HOME*ADDRESS UNORDERED LIST 3 
STRUCTURE NUMBER 146 
AREASIZE w {125 RECORDS PER AREA 
TABLESIZE 8 42 ENTRIES | 
BLOCKSIZE ® 4 RECORDS/BLOCK 
DATASIZE » 32 BITS. 
RECORDSIZ@ #® 1416 BITS 

ENTRYSIZE m 32 BITS 

BITS PER BLOCK =» $696 


FILE INFORMATION ¢ 
FILE NUMBER 10 


AREAS s 20 

AREASIZE = 125 SEGMENTS 
PACK & 

TITLE @ UNIV /HOMB@ADDORE 


CRS UNORDERED LIST 8 

STRUCTURE NUMBER 17 

AREASIZE 32 9632 RECORDS PER AREA 
TABLESIZE s 42 ENTRIES 
BLOCKSIZE s 4 RECORDS/BLOCK 
DATASTIZE = 32 AITS 
RECOROSIZE = 1416 BITS 

ENTRYSIZE & 32 8IT8 

BITS PER BLOCK = 5696 


FILE INFORMATION ¢ 

FILE NUMBER 11 

AREAS mw 20 

AREASIZE @ 9632 SEGMENTS 
PACK @ | 
TITLE wa UNIV /CRS 


GCRS UNORDERED LIST ! 

STRUCTURE NUMBER 18 | 

AREASIZE w 9632 RECORDS PER AREA 
TABLESIZE #8 42 ENTRIES 
BLOCKSIZE & 4 RECORDS/BLOCK 
DATASIZE 2 32 SITS 
RECORDSIZE & 1416 BITS 
ENTRYSIZE = 32 BITS 

BITS PER BLOCK = 5696 


FYLE INFORMATION ¢ 

FILE NUMBER 12 

AREAS ms 20 

AREASIZE = 9632 SEGMENTS 
PACK. a | | 
TITLE a UNIV /GCRS 
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CORSES ORDERED LIST t 


STRUCTURE NUMBER 16 
AREASIZE m= 14339 RECORDS PER AREA 
TABLESIZE # #3 ENTRIES 


BLOCKSIZE. # i RECORDS/BLOCK 
DATASTZE 8 sae BITS 


RECORDSIZE # 1392 BITS 
ENTRYSIZE @ 440 SITS” 
BITS PER BLOCK = 1424 


FILE: INFORMATION " 


FILE NUMBER 13> 

AREAS a 20. 

AREASIZE = 14339 SEGMENTS 
PACK «@ 

TITLE # UNIV JCORSES 


QUARTER ORDERED LIST 1. 
STRUCTURE NUMBER 15 
AREASIZE = 20850 RECORDS PER AREA 


TAGLESIZE @ = {2 ENTRIES 


BLOCKSIZE = 1 RECORDS/BLOCK 
DATASIZE @ 8 BITS. 
RECORDSIZE = i416 BITS 
ENTRYSIZE =» 112 BITS 


BITS PER BLOCK =» 1448 


FILE INFORMATION 8 


FILE NUMBER 14 

AREAS m 20 | 
AREASTZE @ UL700— (SEGMENTS. 
PACK = 


TITLE = UNIV /QUARTER 


ADR DATA SET 3 


STRUCTURE NUMBER 10 
PRIME @ 0. | | 
BLOCKSIZE. 1 RECORDS/BLOCK 


AREASIZE 8. 910 RECORDS PER AREA 


POPULATION m 10000. RECORDS 
DATASITZE = 3988 BITS | 
RECORDSIZE @ 3988 BITs 


BITS PER BLOCK = 3988 


SAD INDEX SEQUENTYAL SET ¢. 
STRUCTURE. NUMBER 20 

PRIME a { | 

TABLESTZE (COARSE) = 4929 ENTRIES 
eee ee . ‘tot ENTRIES 
AREASIZE <8. ott TABLES. PER AREA 
LOADFACTOR: a 66 PERCENT | _ 
SPLITFACTOR « 49. PERCENT 
ENTRYSTZE (COARSE) Le ry errs 
ENTRYSTZECFINE) . 2 38 Says 
BITS PER. BLOCK (COARSE) © S692 
BITS PER BLOCK CFINE) -m: S872. 
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FILE NUMBER {8 


AREAS @ 20 2. 
AREASIZE. ‘@ 2774 SEGMENTS 
PACK = a 

TITLE @ UNIV — AADR 


SSAD INDEX SEQUENTIAL Ser t 
STRUCTURE NUMBER 21 ~ 

PRIME = 0 _ 
TABLESTZE (COARSE) ‘ww {463 ENTRIES 
TABLESIZECFINE) = 119 ENTRIES 
AREASTZE @ 9% TABLES PER AREA 
LOAOFACTOR @ (66 PERCENT. 
SPLITFACTOR = 49 PERCENT . | 
ENTRYSIZE(COARSE) = 60 BITS 
ENTRYSTZECFINE) @ 72 BITS 

BITS PER BLOCK(COARSE) = 8596 
BITS PER BLOCKCFINE) | . 6584 


FILE INFORMATION: ’ 
FILE NUMBER 16) 


AREAS = 20 

AREASIZE . aes SEGMENTS. 
PACK = 

TITLE @ UNIV /88AD. 


STUAD INDEX. SEQUENTIAL ‘Set at 
STRUCTURE NUMBER: 220 

PRIME @ 0 

TABLESTZE (COARSE) . 2s ENTRIES 
TABLESTZE (PINE) s 113 ENTRIES 
AREASTZE-@ =-10° TABLES. PER AREA 
LOADFACTOR #8. 66 PERCENT 
SPLITFACTOR a. 49 PERCENT. " 
ENTRYSIZE(COARSE) © - BO arts 
ENTRYSYZECFINE) @ - 68 BITS. 
BITS PER BLOCK (COARSE) 2 10046 
BITS PER BLOCKTRINE) = 9960 


FILE INFORMATION 3! 
FILE NUMBER 16 


AREAS = 20. - 
AREASTZE @ 124 SEGMENTS: 
PACK @ 
TITLE @ UNIV. “#8 8AD. 


FACAD INDEX SEGUENTIAL ‘Ser ’ 
STRUCTURE NUMBER 23 

PRIME #0. — — 
TABLESTZECCOARSE) “$28 EnvRIeg. 
TABLESTZECEINE) “& {3 ENTRIES. 
AREASTZE @ 10 TABLES PER: AREA. 
LOADFACTOR.: -, $66: PERCENT. 
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ENTRYSTZECCOARSE). = : “BO SITs 
ENTRYSTZECFINE) #. 48 BYTs. 
BITS PER. BLOCK (COARSE) :_ 10016. 
BITS PER BLOCKCFINE) @ 9960— 


FILE INFORMATION a 
FILE NUMBER 16 | 


AREAS @ 20. | | 
AREASIZE @ 194 SEGMENTS 
PACK @ a 
TITLE @ UNTV = /88AD 


ADMAD INDEX SEQUENTIAL SET t. 
STRUCTURE NUMBER 24 | 

PRIME #8 0 _ 
TABLESIZE (COARSE) = 425 ENTRIES 
TABLESIZE(FINE) a 113 ENTRIES 
AREASIZE # {0 TABLES PER AREA 
LOADFACTOR @ 66. PERCENT 
SPLITFACTOR s 49 PERCENT 
ENTRYSIZE(COARSE) = 80 BITS 
ENTRYSIZECFINE) # 88 BITS 
BITS PER BLOCK(COARSE) = 10016 
BITS PER BLOCK(CFINE) = 9960 


FILE INFORMATION # 
FILE NUMBER 16— 


AREAS = 20. 

AREASIZE 2 aoa SEGMENTS 
PACK « - 

TITLE 7 UNIV , “19840 


BOOKS UNORDERED List 1 

STRUCTURE NUMBER 

AREASIZE = 500. ‘AbcoRDS: PER AREA 

TABLESIZE @ 1 ENTRIES 

BLOCKSIZE = |  §& RECORDS/BLOCK 

DATASIZE # 760 BITS 
RECORDSIZE = 832 BITS. 

ENTRYSIZE = 760 BITS 

BITS PER BLOCK = 4iaa 


FILE INFORMATION 1 
FILE NUMBER of 


AREAS ®@ 10 2. 
AREASIZE = 300 SEGMENTS 
PACK a. 


TITLE @ UNIV /800K8 
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¢I—-H 


001001 


001002 
6601003 


601004 


001005 
0013006 


601007. 


091008 
001009 


601010 


601011 


O01ote2 


601013 
601014 


001015 


001016 
001017 
001018 
001019 
001020 
004024 
001022 
001023 


001024 


001025 
001026 
001027 
001028 
001029 
001030 
00103! 
001032 


001033. 


aee+ eee ee eee ne ¢ oR € Bar 


TDOENTIFICATION OLVISION,. 
PROGRAM@ID, OMSCOBOLSAMPLE, 


“ENVIRONMENT DIVISION, 


INPUT=OUTPUT SECTION, 
FILE=CONTROL, 
SELECT CARD ASSIGN TO READER, 

— SELECT MONITOR@DMS ASSIGN TO PRINTER, 
DATA DIVISION, 
FILE SECTION, 
FD CARD. 

01 CARD@REC, 


03 


C-TYPE 
CeSSNO | 
C=GRO@-PTeAVG 
C=SEX : 
CwAGE 

C=-QTR 


C#TYPECOURSE 


C=GRADE 
CoTITLE=PAPER 


— CaNAME 


FD MONITOR=DMS, 
OL MONTTOR@REC, 


03° 


MONITOR@EXCEPTIO 
MONTTOR=STATUS=B | 
MONITOR@STATUS — 
MONT TOR@VERB 
MONTTOR@SET 
MONTTOR@STRUCTUR 
FILLER 


DATA=BASE SECTION, 
OB UNIV, 
O01 MASTER INVCKE MSF, 


PIC 
PIC 
PIC 
prc 


PIC. 


PIC 
Prc 
PIC 
PIC 
PIC 


N 


E 


01 MSF DATASET DDL*NUMBER 


ORDERING KEY MSFSET DOL*NUMBER 


(SSNO), 
02 SSNO 
02 NONAM 
02 LNAME 
O02 MNAME 
O02 FNAME 
O02 CAMPUS#ADDRESS, 
03 DORM 
03 ROOM 
03 POBOX 
03 PHONE 


02 ND” 


02 DEGREE OCCURS 6 TIMES 
02 TOTHRS 
02 TOTOP 
02 GRADEPOINT#AVG 


9. 
9(9), 
999V99, 


X(2u). 


Pye x(a), 
PTC x(20), 
PIC 222988. 
PIC X(20), 
PIC X(17),. 


PIC 9(3). 


PrC xX(64), 


6 11243866 U/ 1/75 


PIC 
PIC 
PIC 
PIC 
PIC 


19 142843846 


909) COMP, 
9 COMP, 
X(30). 
X(30), 
X(€30), 


PIC X(6), 


PIe ¢(€4) come, 
PIC 9(4) COMP, 
Prc 9(7) Come, 


PIC 


99 COMP, 


Pre x(a), 


PIC 
PIC 
PIC 
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999 COMP, 
999 COMP, 
9V99 COMP, 


4/ 3/75 


{0001} 


(0002) 
(6003) 


(0004) 


(0005) 


[0006] 


(0007) 
(0008) 


[0009] 


(0010) 
(O0%1) 


(0012) 


000,00000%6 
000,0000066 
00070000068 
000,0000086 
000,0000096 


000,0000098 


00620000102 


000,00001410 


0000000112 
000,000011%6 
000,0000176 


000,0000224 
000,0000224 
000,0000232 
000,0000272 
000,0000284 
000,00003e4 
6000,0000358 
C00,000N36u 


090,00004692 


000,0000492 
000,9000501 
000,0000580e 
000,0000562 
000,000062~e 
000,9000648 
000,0000682 
0000000694 
00020000698 
000,0000702 
000,0000710 
000-09000712 
000,0000760 
000200600763 
C00,0000766 


vI-H 


SLPFeee eee eeeeezeeeeee eee EE 


001034 


#*¢Oetsee eee te t¢eee ened a 


001035 


001036 


001037 


001036 


001044 
001045 


001046. 


001047 


02 MIR. 
~—602 AMIR 
O02 SSEX 
02 SAGE 


PIC 999 COMP, 
PIC X(18), 
PIC 9 COMP, 
PIC 99 COMP, 


02 HOME= ADDRESS” SUBSET DDL*NUMBER 14 11243346 4/ 1/75 TO. AOR 


DDL=NUMBER: 10 11843246 u/ 1 
02 QUARTER DATASET DDL»NUMBER 
ORDERING KEY GSET DOL=NUMBER 
CATR), | 
03 ATR 
03 QTTRHRS 
03 QTROP 
03 CORSES DATASET DDL=NUMBER 
ORDERING KEY CSET DDL=NUMBE 
(TYPECOURSE), 
04 TYPECOURSE 
04 GRADE 
04 CRS SUBSET DDL=NUMBER- 
UNTV=COURSES DDL=NUMBER 
04 ¥R 
ong 
04 GCRS SUBSET DDL»NUMBER 
UNIT VeCOURSES DDL=NUMBER 
04 GGD | 
04 TITLE*OF@PAPER 
04 PPRGD 


S753 « 
15 114:43946. dy 1/75 
15 Lish3e4e Uf L775 


PIC X(4). 
PIc 99 COMP, 
PIC 99 COMP, 
16 4114243346 Uf 1/75 
R {6 14243246 Us 1/75 


PIC 9 COMP, 
PIC XxX, 
17 Lis4394e 4/ 1/75 TO 
1112943346 4/ 1/78 , 
PIC 99 COMP, 
PIC 99 COMP, 
18 118432466 d/ 1/75 TO 
$11963866 ads 1/78 , 
PIC 


PI¢ X(30), 
PIC XX, 


14 ADDRESS INVOKE ADR, 


O01 ADR DATASET ODL=NUMBER 


10 148435846 Uf 1/75 


ORDERING KEY SAD ODL =NUMBER 20 11243946 &/ 1/75 


(ZIPC) 


ORDERING KEY $SAD DDL*NUMBER 24 41243946 Uf 1/75 


(SNO). 


ORDERING KEY STUAD DDL®NUMBER 22 11243146 4/ 1/75 


(ZIPC, SNO) 


QROERING KEY FACAD DDLeNUMBER 23 11243346 4y 1/75 


(ZIPC, SNO) 


ORDERING KEY aDMaD DDL=NUMBER 24 11343846 Af 1/78 


CZIPC, SNO), 
02 FACULTY=STUDENT 
02 SNO | 
02 ADLN OCCURS 9 TIMES 
02 ZIPC 
02 PHON 
WORKING@STORAGE SECTION, 


77 TOOMANYEXCEPTIONS 


77 TRUE. 


PROCEOURE DIVISION, 


BEGIN=SECTION SECTION, 
BEGIN, 


PIC 9 COMP, 

PIC 9(9) COMP, 
Prc X(54),. 

PTC 9(5) COmP, | 
PIC 9¢€10) COMP, 


PIC 9(2) COMP, 


PIC 9 COMP VALUE "1", 


OPEN OUTPUT MONITOR@=DMS, 
MOVE SPACES TO MONITOR@REC, 
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(0013) 
(6014) 


[0015] 


(0016) 


(0017) 


C€00,0909769 
006.0000772 
069.00008908 
0¢0,0000809 


00n,0000812 


600,6000812 
00020900820 
000,9000822 
660,0000824 


000,0000824 
000,0000826 


000,0000830 
000,0000832 


000,0000834 
000290000838 
000,0000898 


000,0000902 


000,000990e 
0nG,0000903 
n00,0000912 
00%,0001884 
090,0001889 


000,6001900 
000,6001902 


00020000000 
00020000000 
000,0000000 
0060,0000084 


001048 
002066 
002067 
002066 
002069 
002070 
002071 
002072 
002073 
002074 
002075 
002076 
002077 
002078 


002079 


002080 
002081 
002082 
002083 
002084 
002085 
002086 


002087 


002088 
002089 
002090 
002091 
002092 
002093 
002094 
002095 
002096 
002097 
002098 
002099 
002100 
003101 
003102 
003103 
003104 


003108 
003110 
OOSii! 
OO3i{e2 
003113 
003114 
003115 
003116 


OPEN UPDATE UNIV ON EXCEPTION PERFORM STATUS=BOOLEAN, 


BUILOMSF, 


OPEN INPUT CARD, 


READ=CARD@LOGP, 


READ CARO AT END GO EOJ, 


WRITE oe ane FROM CARN@REC, 


IF CeTYPE 1 GO 1LO00=CREATE=MSS, 
IF CeTYPE & 2 GO 200@CREATE*QUARTER, 
IF CeTYPE # 3 GO 300=CREATE=CORSES, 


IF CTYPE & 4 GO 4JOO@=DELETE*ADR, 

IF CeTYPE @ 5 GO SOO0@CHANGE=@MSFRNAME, 

IF CTYPE = 6 GO 600@CHANGE@GRADE, 

DISPLAY C= ~TYPE "INVALIO CARDTYPE" STGP RLN, 


L00=CREATE=MSF, 


IF C-SSNO LESS THAN 1 OR GREATER THAN 10 

MOVE "CeSSNO COLS 2910 MUST BE BETWEEN 0 AND 11" TO 
MONT TOR=REC | 

WRITE MONITOR@REC GO REAN=CARD=LOOP, 

CREATE MASTER ON EXCEPTION PERFORM STATUS@BOOLEAN, 
MOVE C#SSNO TO SSNO, 

MOVE CeGRD@=PTeAVG TO GRADE= POINT=AVG, 

IF CeSEX & "M" COMPUTE SSEX 2 TRUE, 

MOVE CeAGE TO SAGE, 

MOVE CwNAME TO LNAME, 

STORE MASTER ON EXCEPTION PERFORM STATUS#BNOLEAN 
GO EOJ, 

GQ TO READ=CARD@LOOP, 


2O0=-CREATE*QUARTER, 


MODIFY MSFSET AT SSNO @ CwS8NO ON EXCEPTION 
IF DMSTATUSCNOTFOUND) DISPLAY C=SSNO "NOT IN MSF" ELSE 
PERFORM STATUS#=BQOLEAN, 


CREATE QUARTER ON EXCEPTION PERFORM STATUS@BO0NLEAN, 


MOVE CeQTR TO OTR, 
STORE QUARTER, 
GO TO READ@CARD#LOOP, 


SOO=CREATE@CORSES, | 
MODIFY MSFSET AT SSNO m™ CeSSNO ON EXCEPTION 
‘IF DMSTATUSC(NOTFOUND) DISPLAY C#SSNO " NOT IN MSF" ELSE 


PERFORM STATUS=BOOLEAN, 
MODIFY GSET AT GTR # C=OQTR, 


003105 
WARNING,..(254) SEQUENCE ERROR 


CREATE CORSES, 

MOVE C#TYPECOURSE TO TYPECOURSE, 

MOVE C=GRADE TO GGD, 

STORE CORSES ON EXCEPTION PERFORM STATUS*BOCLEAN, 
GO TO READ@=CARD=LOOP, 


GQOO=DELETE=ADR, 


MOVE "MODIFY MSFSET " TO MONITOR@VERB 
MODIFY MSFSET aT SSNO = C#SSNO ON EXCEPTION 
PERFORM STATUS*BOOLEAN STOP RUN, 


WARNING,,.(254) SEQUENCE ERROR 


MODIFY ADDRESS VIA FIRST HOME=4DDRESS ON EXCEPTION 


Figure H—3. COBOL Program Example (Sheet 3) 


G00,0000098 
COG, 00004S4 
oo0,00004S4 
000,0006538 
000,00005384 
000,0000786 
006,0000982 
660,0001018 
600,0001054 
000,0001090 
000,00C01690 
000,0001126 
00C,000116e2 
00¢,0001198 
09¢-90001560 
000,0001560 
0900,0061596 
000,0001636 
06¢6,0001636 
000,0002160 
C00,0002446 
000,0002460 
660,00024674 
000,0002600 
600,0002662 
C00,0002676 
C0020002936 
00020002980 
000,0002998 
C0620002998 
000,0003344 
60029903700 
100,0003726 
000,0004012 
000,0004026 
000,0004230 
000,60¢4248 
00¢6,0004248 
000,0064594 
000,0004958 
000,0004984 


000,0005274 
000,0005478 
000,0005840 
000,0005602 
000,0008886 
0000005906 
006,0005906 
000,9005906 
000,0006410 


G00,000b476 


9I—-H 


IF DMSTATUSCNOTFOUND) GO TO READ@CARD#LOOP ELSE ~ | 000,0006784 
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PERFORM STraTUS=BOOLEAN ELSE PERFORM REMQVE@ANDRESS, 000,0006848 
CO3117— MOVE "DELETE ADR " TO. MONITOR®@VERB 000,0006918— 
| 003118. DELETE ADDRESS ON EXCEPTION PERFORM STATUS=BOOLEAN STOP RUN. 000,0006918 
003119 GO TO READ@CARD#@LOOP, | 000,0007402 
: WARNING, 4» (254) SEQUENCE ERROR | 

REMOVEADDRESS, 00000007420 

REMOVE CURRENT FROM HOME* ADDRESS ON. EXCEPTION 000,0007420 

PERFORM STATUS#BOOLEAN, 000,0007728 

003120 S00=CHANGE=MSFeNAME, 000,0007754 
003121 MODIFY MSFSET AT SSNO ® C=SSNO,. 000,0007771 
003122 MOVE LNAME TO MONTTOR@REC, WRITE MONITOR@=REC, 000,000806! 
003123 © MOVE "NAME IN MSF WAS CHANGED TO" TO MONITOR@REC. 000,00082e31 
003124 WRITE MONITOR@REC, 000,0008461 
003125 MOVE CeNAME TO LNAME,. 000,0008617 
003126 STORE MASTER, - 000,6008631 
003127. MOVE LNAME TO MONITOR@REC, WRITE MONITOR@REC, 000,0008835 
003128 GO TO READ=CARDRLOOP, | | 000,0009005 
003129 600=CHANGE=GRADE, Se | 000,0009023 
003130 MOVE "MODIFY MSFSET " TQ MONITOR®@VERB, 000,0009023 
003131 MODIFY MSFSET aT SSNO 3 C#SSNO ON EXCEPTION 000,0009183 
003132 PERFORM STATUS#BQO0LEAN, 000,0609527 
003133 MOVE C=GRD=PT*AVG TO GRADE=POINT#AVG, 006,0009553 
003134 MOVE "STORE MSF " TO MONITOR@VERA, 000,0009567. 
003135 STORE MASTER ON EXCEPTION PERFORM STATUS*BOOLEAN, 006,0009725 
0031%6 GO TO READ=CARD=LOOP, eae 
003137 STATUS@ADOLEAN, GO6,0010089 
003138 ADD 1 TO TOOMANYEXCEPTIONS, ONO, 0010024 
003139 IF TOCMANYEXCEPTIONS GREATER THAN 10 0900-0010043 
003140 DISPLAY TOOMANYEXCEPTIONS "TS TOO MANY EXCEPTIONS" STOP RUN 9600,0010G43 
OO3141 MOVE ALL "#" TQ MONITOR@EXCEPTION, | 006,0010493 
OO3iLu2 IF DMSTATUS (NOTFOUND ) THEN MOVE "NOT FOUND i COO,CO10617 
603143 TO MONITOR@STATUS#8, | , G00.001068} 
003144 IF DMSTATUS (DUPLICATES ) THEN MOVE "DUPLICATES " C00,0010807 
003145 TO MONITOR@STATUS=68, COGrOO10874 
003146 IF OMSTATUS (DEADLOCK ) THEN MOVE "NEADLOCK i" 009,0010997 
003147 TO MONTTOR=STATUS=B, | ONG, OC11061 
003148 IF DMSTATUS (DATAERROR ) THEN MOVE "DATA ERROR " 060,0011187 
(003149 TO MONITOR@STATUS=B, aec, 0011251 
003150 ITF DOMSTATUS CNOTLOCCKED ) THEN MOVE "NOT LOCKED " O0G,0011377 
003151 TO MONITOReSyarTUS=B, 090,0011444 
003152 TF DMSTATUS (KEYCHANGED ) THEN MOVE "KEY CHANGED " 000-0011567 
003153 TO MONT FGR@STATUS=B, oS 060,0011631 
003154 IF DMSTATUS (SYSTEMERROR) THEN MOVE "SYSTEM ERROR " 060,0011757 
003155 TO MONT TOReSTaTUS@B, | COC, COL1LE2S 
003156 IF DMSTATUS (IOERROR ) THEN MOVE "ITO ERROR " N00,60119467 
003157 TO MONTTOR@=STATUS@=8, OF6,GOLz01 
003158 IF DMSTATUS CLIMITERROR ) THEN MOVE "LIMIT ERROR " G00, CO12137 
eee ee ime nad COO, 0012EN 
003160 IF CMST4TUS (ORPENERROR ) THEN MOVE "OPEN ERROR " 006,0012327 
004161 TO MONITOR@STATUS@B, , IR, 0012394 
004162 IF DMSTATUS (CLOSEERROR ) THEN MOVE "CLOSE FRROR " 006,0612517 

004163 TO MONITOR@STATUS#B, x 


OO0,0012584 


LI-H 


c 60 


OD A 


000 
P oA 


000 
001 
002 
003 
004 
008 
006 
007 
008 
009 
010 
O11 
O12 
043 
014 


Q04164 
004165 
004166 
004167 
004168 
004169 
004170 
004171 
OO4172 
004173 
999999 


E 


0 
BYTE LENGTH 
eenenens@8 8 


000 00001752 
00001752 


T OA 
BYTE LENGTH 
0 


aeneeseaa 
oo0d0dg1e! 
rT # 


¥ 
M 
FOS, 


F OMSTATUS (NORECORD ) THEN MOVE "NO RECORD " 


O MORITOS@STATUS@B, 
F DMSTATUS CINUSE 
O MONTTOR@STATUS@B, 
RITE MONITOR@REC, 
OVE SPACES TO MONITOR@=REC, 


) THEN MOVE "IN USE " 


TF TCOMANYEXCEPTIONS = 0 OISPLAY 
CLOSE UNTV Om EXCEPTION STOP RUN, 


STOP RUN, 


ENDeOFe JOB, 


ane ae 


Ir O N 


CODEFILE RELATIVE D 


Y 


ISK ADR 


O00011 
TOTAL CODE 
pb I ¢ 1 0 N Y 


CODEFILE RELATIVE DISK ADR 


000003 


INQ OM EXCFPETION", 


INVOKED 


FALSE 
TRUE 
FALSE 
FALSE 
TRUE 


FALSE 


FALSE 
FALSE 
TRUE 

FALSE 
FALSE 
FALSE 
FALSE 
FALSE 
FALSE 


MA 


D Ff € TFT Y O N A R Y 
STRUCTUREX HHeMMESS MM/DD/YY 
@eeseeeaserne 8 @eeneaeoe8ee@ eseegenean 8 
0000 00900800 09/00/00 
1006 142433246 04/01/78 
0019 11943246 04/01/75 
014 11243346 04/01/75 
0010 11243846 04/01/75 
0015 $1243046 04/01/75 
0016 14943346 04/01/75 
0017 14343346 04/01/75 
0001 114343346 04/01/75 
0018 11243946 04/01/75 
1020 11243246 04/01/75 
O0el 142943 346 04704/75 
0022 14243846 04/01/75 
0023 11943346 04/01/75 
on24 114243846 04/01/75 
H YY N € P oA A mM € 


R § (8 C¢ 


LENGm9, SEGB#0, DISPRail, COPXBsS, COPBE24, D.E.F2354, B01SPRR14 
BASE RELATIVE ADDRESSES! | | 
DATA@SEGMENT@O0R616, COP@TABLE@40, STACK28681 (BIT LENGTH#1000) 
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090,0612767 
NAA, COLETTY 
GOt,O012697 
060, 6012964 
C0r, 6013087 
00020013243 
O0C, 0013257 
000,0913274 
090,00135604 
OChsCC13974 
GOOO,GCOLSO18 


i 
03 


P RO GR A M P A R A M E T E R B L Oo C K 


FIRST@EXECUTABLE@INSTRUCTIONRO, 0 
INTERPRETER=NAMESCOBOL = /INTERP 


——« @TATIC*CORES9688 BITS 


DYNAMIC@CORESO BITS | 
DATA DICTIONARY STARTS AY CODEFILE SEGMENT 2, 1 ENTRY 
CODE DICTIONARY STARTS AT CODEFILE SEGMENT 10, 1 ENTRY 
FILE PARAMETER BLOCKS START AT CODEFILE SEGMENT 21, 2 ENTRIES 


PATH DICTIONARY STARTS AT CODEFILE SEGMENT 23, 15 ENTRIES 


LAST ERROR AT SEQUENCE NUMBER ~ 2 3 WARNINGS 3 SEQUENCE ERRORS, 
wewew COMPILATION COMPLETE 7 


ELAPSED TIME : Of MINUTE, 46 SECONDS 


PROGRAM REQUIRES 23 DISK SEGMENTS OF 180 BYTES EACH, 
MEMORY REQUIREMENTS 7 

0001752 BYTES @ LARGEST CCDE SEGMENT 

06042141 BYTES @ BASE=TO@=LIMIT AREA 

0000315 BYTES = DICTIONARIES AND RUN STRUCTURE 


0000505 BYTES = FILE BUFFERS & FILE INFO AREAS = INCLUDES 129 BYTES (#72 TO S40 IF DISK) FOR EACH FILE 


0003783 BYTES @ ESTIMATED MEMORY REQUIRED TO RUN IF ALL FILES OPEN 
221 SYMBOLIC RECORDS COMPILED AT 125,040 RECORDS PER MINUTE. 


001001 IDENTIFICATION DIVISION, 
001002 PROGRAM=ID, CMSCOBOLSAMPLE, 
001003 ENVIRONMENT CIVISION, 
601004  INPUT=OUTPUT SECTION, 
001005  FILE=CONTROL, 
001006 SELECT CARD ASSIGN TO READER, 
001007 _ SELECT MCNITOR=OMS ASSIGN TO PRINTER, 
001008 DATA OTVISION, 
001009 FILE SECTION, 
001910 FD CARD. 
OOLO11 OL CARD@REC, 


001012 O03 CHTYPE PIC 9, 
001013 03 CeSSNO Pre 99), 
Q001014 . 683 CeGkbePTeAVG PI¢c 999V99, 
001015 03 CeSsEX PIC xX, 
001016 7 03 CeAGE PIC 99, 
001017 03 C=atTR PIC x(4), 
001018 — 93 CoTYPECOURSE PyYyC 9, 
001019 03 CeGRADE PIC xXx, 
001020 03. C#TITLE@PAPER PTC x(30), 
004021 0% CNAME PIC xX(24), 


691022 FO MONTTORe OMS, 
001023 of MONITOR@FPEC,. ; 
001024 03 MANTTOR® EXCEPTION PTC x(4), 


061025 03 MANITOR=STATUS@B PIC xX(20), 
001026 03 MONITOR@STATUS PIC 272988. 
001027 03 MONTTOR@VERB PIc X€20), 


004028 03 MONITOR=SET PIC X(17). 
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De eae 


(0901) 
(0002) 
(6003) 


[6004] 


(0005) 
[9006] 
(6907) 


0008) 


09040000068 
90G709000€@6 
00020000068 
C90,0000086 
600,09090609%6 
OG00e9999098 
900,900010e 
000,00060110 
daodo,qncaile 
AGe-9O00116 


COG, 0000176 | 


AAO, CNORBES | 
OOG,0000226 


£90,00092832 


000,0000272 
000,0006284 
099,9000324 


r 
S 


See eeteeeeeee eee egeceeeceeee eee eRHe eee ERE RHEE Eee) 


001029 
001030 
001031 
001032 
001033 


—6b0L0sa 
" 


ORDERING KEY MSFSET POL*NUMBER 
(SSNCG), 
02 SSNO 
02 NONAM 
O02 LNAME 
02 MNAME 
02 FNAME 
02 CAMPUS@ADDRESS, 
03 DORM 


02 ND 

02 DEGREE OCCURS 6 TIMES 
02 TOTHRS | 

02 TOTGP - 

02 GRADE=POINT@AVG 

02 MJR 

02 AMJR 

02 SSEX 

02 SAGE 


02 HOME=ADDRESS SUBSET DDL*NUMBER 
DOL=NUMBER 10 14243946 4/4/78 , 


02 GUARTER DATASET DDOL=NUMBER 
URDERING KEY QSET DOL*NUMBER 
OTR), . 

03 QTR 
03 QTTRHRS 
O03 QTRGP 
03 CORSES DATASET DDL®=NUMBER 
ORDERING KEY CSET DDOL=NUMBER 
(TYPECOURSE), 
04 TYPECOURSE 
04 GRADE 


19 14243246. 


03 MOANITOR@STRUCTURE PTC 9¢3),. 
03 FYLLER | PrC xX(64), 
DATABASE SECTION, 
DB UNIV. 
O41 MASTER INVOKE MSF, 
O1 MSF DATASET DDL=NUMBER 6 11243246 Us 1/75 


4/ ¢/75 


PIC 9(9) COmMs, 
PTC 9 COMP, 
PTC x(30),. 

PTC X(30), 

PIC xX(30), 


PIC X(6), 

PIC 9(4) COMP, 

PIC 9(4) COMP, 

PIC 9(7) Come, 
PIC 99 COMP, 


PIC X€4), 


PIC 999 
PIC 999 


COMP, 
COMP, 


PIC 9v¥99 COMP, 


PIC 999 


COMP, 


PIC X(18),. 
SIC § COMP, 
PIC 99 COMP, 


15 11243246 
15 11293%46 


14 11243946 


Qs 4/75 
4/ 1/75 


PIC X(4), 
PIC 99 COMP, 
PIC 99 Come, 


16 14243946 


4/ 4/75 


16 11243846 as 3/75 


PIC 
PIC 


04 CRS SUBSET DOL=NUMBER 17 14243246 


UNIV@COURSES DOL@=NUMBER 
04 YR 
04 Q 
04 GCRS SUBSET DDL=NUMBER 
UNIVeCOURSES DDL=NUMBER 
04 GGD. 
04 TITLE@OF@PAPER — 

04 PPRGD | 

01 ADDRESS INVOKE ADR, 
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1 11843846 — 
— PIC 

PTC 

18 114943346 
4 11243246 
PIC 

PIC 

PIC 


9 COMP, 
XX, 

4/ 1/75 TO 
W/ 4/75 , 

99 COMP, 

99 COMP, 
4/ 1/78 TO 
W/ 1/75, 
XX, 

X(30). 

XX, 


4/ 1/75 TO 


ADR 


(0009) 


(00101) 


(0011) 


(0012) 


0013) 


(0014) 


(0015) 


000+0900358 
d00,0000364 


000-0000492 


000-0900492 

9090-0000501 
909,0009802 
000.0000562 
009,000062a 
000,0000682 
000,0000682 
0002,9000694 
00020900698 
900,0900702 
000,0000710 
099,0000712 
000.9000760 
000-0000763 
000,0000766 
06020000769 
000,0000772 
0099000808 
000209008089 


00060000812 


000,000081e 
00020000820 
000,000082e2 
000,0000824 


000,0000824 
000,0000826 


00070000830 
000,0000832 


000,00008346 
000,0000838 
00020000898 


Oc—-H 


ete eeee eee eet st 


001035 
~—6001036 
001037 
001038 


001004 
001045 


001046 


— 0010487 


0010408 
602066 


(002067 


002068 


6002069 


002070 


002071 
002072 
602073 


602074 


602075 


002076 
002077 
002078 
602079 
002080 
002081 
602082 
002083 


002084 


002085 
002086 
002087 
002088 
002089 
002090 


002092. 


BOGOR 


01 ADR DATASET DDL=NUMBER 
ORDERING KEY SAD DDL NUMBER 


Lo-11843246 4/7 4/75 
20 14243846 U/ 4/75 


(Z7PC) 
ORDERING KEY SSAD DOL*NUMBER 21 £14263846 G/ 1/75 
(SNO) | 
ORDERING KEY. STUAD DDL=NUMBER 22 11243346 4s 4/75 
— CZTPC, 8NO) a 
ORDERING KEY FACAD DOL*®NUMBEP 23 11243846 4s 1/75 
(ZIPC, SNO) 7 
ORDERING KEY aADMAD DOLeNUMBER 24 112439de U/ {/75 
(ZIPC, 8NO), | : 
—. 02 FACULTY*STUDENT - PIC 9 COMP, 
02 SNO = PIC 909) Come, 
02 ADLN OCCURS 9 TIMES Pre x(S4), 
02 ZIPC PIC 9(5) COMP, . 
O02 PHON PIC 9(10) COMP, 


WORKING@STORAGE SECTION, 


17 
77. 


TOOMANYEXCEPTIONS PIC 9(2) COMP, 


TRUE 


PROCEDURE OIVISION, 
BEGIN@SECTION SECTION, | 


BEGIN, 


PIC 9 COMP VALUE "1", 


OPEN OUTPUT MONITOR@0MS, 

MOVE SPACES TO MONITOR@REC, 

GPEN UPDATE UNIV ON EXCEPTION PERFORM STATUS*BOO0LEAN, 
BUILD@MSF, 

OPEN INPUT CARD, 


READ@CARDeLOOP, 


READ CARO AT ENO GO EON, 
WRITE ee eee FROM CARD*REC, 


if 


CeTYPE 
C#TYPE 
CwTYPE 


CeTYPE 
C=TYPE 


CHTYPE 
DISPLAY C= “TYPE 


LO0=CREATE=MSF,. 
IF CeSSNQ LESS THAN 1 OR GREATER THAN 10 


MOVE 


MONT TOR@REC 
WRITE MONITOR@REC GO READ@CARD@LOOP, 

CREATE MASTER ON EXCEPTION PERFORM STATUS=S00L EAN, 
MOVE C#SSNO TC SSNO. 

MOVE CeGRD=PTeAVG TO GRADE#POINT#<AvVG, 

COMPUTE SSEX = TRUF, 

MOVE CeAGE TO SAGE, 

MOVE CeNdME TO LNAME, 

STCRE MASTER ON EXCEPTION PERFORM STATUS@=BUMLEAN 
GC TO READeCARD@LOOP, 


IF 


CeSex a Nun 


{ 
4 
3 


G 
=) 
6 


GO 
GO 
GO 


1 60 


GO 
G9 


LO006CREATE®MSF, 
200=CREATESQUARTER, 
SOOMCREATESCORSES, 


GOO*DELETE*ADR, | 
SQOO0*CHANGESMSFeENAME , 
COO@CHANGE@ GRADE, 


"INVALID CARDTYPE" STOP RUN, 


"E@SSNO COLS @=19 MUST BE BETWEEN 0 AND s1" To 
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£0016) 


(0017) 


009,0000902 


9090.0000902. 


—000,00009083 
000,0000912 
00020001884 


00040001889 


00060001900. 
000,0001902 | 


000,0000000. 


000,0000000 


000-0000000 


000,00000684 . 


009,9000098 
00070000454 _ 
000,0000K4S4 
0000000538 
000,0000538 
060,0000788 
90%,0000982 
109,90010168 
900,0001084:. 


NCO. 0001090 


COGO+UON1N9G. 
900,000) 126 
Q09,0001162 
900,000)198 
009,00015606. 
990,0061560 
000,0001596 
00%,0001636 
AO0,0001636 
005,0002160 
009, 0002445 
00042000246N 
900-,CO02474 
9909,0002600 
00,0002 b62 


00926002676 


009.60029%6 


IC—-H 


002093 | 


002094 
002095 
002096 


—6- 002097 


0020°8 


002099 
002100 


003101 
003102 
003103 
003104 


003105 
WARNING, ..(254) SEGUENCE. ERROR 


003108 
003119 
OO3114 


003112 
Q03113 
003114 


003115 


oO3117 
003118 
OO3119 


003120 | 
003121. 
003122 


003123 
003124 
003125 


003126 
003127 
003128 
003129 
003130 
003131 


003132 


003233 
—6 003134 


003135 


003136 
003137 
OO3138 


CNG@CREATE@GUARTER, 


MODYFY MSFSET 4T SSNOQO # CeSSNO ON EXCEPTION 

TF DMSTATUSCNOTFOUND) DISPLAY CeSSNO "NOT IN MSF" ELSE 
PERFORM STATUS@BOOLEAN, 

CREATE GUARTER ON EXCEPTION PERFORM STATUS*BOOLEAN, 
MGVE Ce€TR TO QTR, 

STCRE GUARTER, 

GQ TO READ=CARD=LOOP, 


SOOMCREATECORSES, 


MODIFY MSFSET AT SSNO = C#SSNO ON EXCEPTION 

IF DMSTATUS(NOTFOUND) DISPLAY C*SSNO " NOT IN MSF" EL SF 
PERFORM STATUS*BOOLEAN, 

MOCTFY GSET AT QTR # Bg QTR, 


CREaTE CORSES, 

MOVE C#TYPECOURSE TO TYPECOURSE, 

MOVE C#8GRADE TO GGD, 

STORE CORSES ON EXCEPTION PERFORM STATUS#*BOOLFAN, 
GC TO READeCARD=LOOP, 


HOC#DELETE*ADR, 


MOVE "MODIFY MSFSET " TO MONITOR@VERB 
MODIFY MEFSET AT SSNO & CeSSNO ON EXCEPTION 


003416 PERFORM STATUS@BOOLEAN STOP RUN, 
WARNING. 6 (254) SEQUENCE ERROR 
MODIFY ADORESS VIA FIRST HOME@ADDRESS ON EXCEPTION 


IF DMSTATUSCNOTFOUND) GO TO READ@=CARD=LOOP FLSE 

PERFORM STATUS#BOOLEAN ELSE PERFORM REMOVE@ADDRESS, 
MOVE "DELETE ADR " T0 MONITOR#=VERB 

DELETE ADDRESS On EXCEPTION PERFORM SraTUS=RCOLEAN STOP 
GO TO READ@#CARD=LOOP, 


WARNING, ..(254) SEQUENCE ERROR 
REMOVE=ADDRESS, 


REMOVE CURRENT FROM HOME@ADDRESS ON EXCEPTION 


PERFORM STATUS@BOOLEAN, 
SOO=CHANGE@MSFaeNAME, - 


MODIFY MSFSET AT SSNO #8 C#88NO0, 

MOVE LNAME TO MONTTOR@REC, WRITE MONITOR@REC, 
MOVE "NAME IN MSF WAS CHANGED TO" TO MONTTOR=REC, 
WRITE MONI TOR@REC, 


MOVE CNAME TOG LNAME, 


STORE MASTER, 
MOVE LNAME TO MONI TOR@REC, WRITE MONITOR®@REC, 
GO TO READ@CARD@LOOP, | | 


GOO@CHANGE@GRADE, 


MOVE "MODIFY MSFSET. " TO MONITOR@VERB, 


MODIFY MSFSEP AT SSNO # C#SS8SNO ON EXCEPTION 


PERFORM STATUS@BOOLEAN, 

MOVE CeGRD@PTeAVG TO GRADE@*RPOINT@AVG, 

MOVE "STORE MSF " TO MONTTOR@ VERB, 

STORE MASTER ON EXCEPTION PERFORM STATUS@BOOLEAN, 
GO TO READ=CARD@LCOP, 


STATUS*BOOLEAN, 


ADO 4 TO TOOMANYEXCEPTICNS, | 
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RUN, 


000,0002986 
000,0002980 
000,06093326 
90020903682 
000,9003708 
000,0003994 
000-0004008 
O00 0004212 
90090004230 
0090,0004236 
00020004576 
006-0004940 
00020004966 


000,0005256 
000,0005460 
000,0005522 
000,0005584 
90020005870 
000,0005888 
000,0005888 
000,0005888 
000200060390 


000,0006488 
00020006766 
000-0006830 
009,0006900 
000,0006900 


00070007384 


0000007402 
Q000,0007402 
000,0007710 
900,9007736 
990,0007753 
000,0008043 
000,0008213 
000.00908443 
000,0008599 
900,0008613 
000,0008817 
00020008987 
90020009008 
000,0009605 
000,0009163 
000.0009509 
609.0009535 
000,9009549 
00020009707 
9000,0009993 
000,0010011 
900,001001L1 


CC—-H 


IF TOCMANYEXCEPTIONS GREATER THAN 410 


DISPLAY TOOMANYEXCEPTIONS "IS TOO MANY FYCEPTIONS" STOP RUN, 
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"NOT FOUND 
"DUPLICATES 
"DEADLOCK 

"DATA ERROR 


"NOT LOCKED 


MKEY CHANGED 
"SYSTEM ERROR 


"TO ERROR 


WLIMIT ERROR 


"OPEN ERROR 


"CLOSE ERROR 
UNQ RECOPN 


"IN USE 


H 


" 


a 


003139 
003140 
OO3141— MOVE ALL "a" TQ MONITOR@EXCEPTION, 
6003142. IF DMSTATUS (CNOTFOUND ) THEN MOVE 
003143. TO MONITOR@=8STATUS@B, sy | 
003144 IF OMSTATUS (COUPLICATES ) THEN MOVE 
003145. TO MONITOR@=STATUS#B, | 
003146 IF DMSTATUS (DEADLOCK ) THEN MOVE 
003147 TO MONTTCReSTATUS@B, 
003148 IF DMSTATUS (DATAERROR ) THEN MOVE 
003149 TO MONTTOR@STATUS#8, . 
003150 IF DMSTATUS CNOTLOCKED ) THEN MOVE 
(003151 TO MONITOR@STATUS=B, 
003152 IF- OMSTATUS (KEYCHANGED ) THEN MOVE 
003153 TO MONITOCR@STATUSeB, - 7 
003154 IF DMSTATUS CSYSTEMERROR) THEN MOVE. 
003155 TO MONT TOReSTATUS@B, 
003156 IF PMSTATUS C(IOERROR ) THEN MOVE 
003157 TO MONITOR@STATUS=B, 
003158 IF DMSTATUS (LIMITERROR ) THEN MOVE 
003159 TO MONITOR@STATUS=B, | | 
003160 TF CMSTATUS (COPENERROR ) THEN MOVE 
004161 TO MONTTOR@STATUS=8, | . 
004162 IF DMSTATUS (CLOSEERROR ) THEN MOVE 
004163 TO MONITOR@STATUS#B, - | 
004164 TF OMSTATUS (NORECORD ) THEN MOVE 
004165 TO MONITOR@STATUS@B, : 
004166 ITF OMSTATUS CINUSE . ) THEN MOVE 
004167 TO MONTTGReSTaTuSeB, | 
004168 WRITE MCNITOR@REC, | 
004169 MOVE SPACES TC MONITOR@REC, 
004176 FOU, . 
OO41T71 IF TOOMANYEXCEPTIONS = 0 DISPLAY "NO DM EXCEPTION", 
004172 CLOSE UNIV ON EXCEPTION STOP RUN, 
0041473 © STOP RUN, | 
9909909 END=OFe JOB, 
¢. 0 D €E D I c  ¥ O N A RY 
BYTE LENGTH CODEFILE RELATIVF NISK ADR 
ea@*eeta0naeneoenee espeseoeseneeaspeaeaeauaeseo4uxen 298A 8 8 
000 00001750 Cooot! — 
~— 00001750. TOTAL CODE 
») | Dp rr C T Y O NM A R Y 
BYTE LENGTH CODEFILE RELATIVE DISk ADR 
@eeeseeaseaeeen eeeaetr*easeoeseaegevo0aenene8eesnananese sone @ 
000 00001211 . 000003 


000,00,9026 
000,0010025 


000,0010475 | 


009,0010599 
000,0010663.. 
000290010789 © 
000,0010853 
90929019979 — 
990,0011043 
0900,0011169° 
000,0011233 
000,0011359 
0909,0011423 
900,0011549 
000,0011613 
000-0011739 
000,0011803 


00070011929 


0090,0011993 
000,0012119. 
9000012183 — 
009,0909012309 — 
900,.0012373 
000209012499 
000,0012563 
00020012689 
000.0012753 
900,0012879 
900,90012943 
90020913069. 
0090,0013225 
0000013239 
000,0013256 | 
009,0013586 
900-)9013956 
09060013996 


€C—H 


P A T 0D I ¢ T Y O N APR Y 
INVOKED STRUCTURER MHeMM3S§ MM/DD/YY 
@eeeneenes wh peeeaees eé eseenanvesne @eseeoaoeneese 
000 FALSE 00.00 004060603:00 00/00/00 
001 TRUE 0006 11243246 04/01/75 
002 FALSE 9019 (1943346 04/01/75 
003 FALSE 0016 11243346 04/01/75 
004 TRUE 09010 11243266 O4/01/75 
005 FALSE 0045 11243rke 04/01/75 
006 FALSE AN16 112163246 04/01/75 
007 FALSE OC17 (12143246 04/01/75 
008 TRUE aon! 114943346 04/01/75 
009 FALSE 0018 Li843B:4e 06/03/75 
010 FALSE 0020 11243246 94/01/75 
O1f FALSE 0921 11943346 04/01/78 
042 FALSE Nve2 11243246 04/01/75 
013 FALSE one3 11943346 04/01/75 
O14 FALSE ao2u 11243246 04/01/75 
S=M A C H YY N E P A RP A M E€ TFT E R 8 (SS €¢ RP A T C KR P 6 Df ) 
LENBa9,. SEGRs0, DISPPeil, COPXReS, COPBeed, 0,E.F2354, ROISPR2l14 


BASE RELATIVE ADDRESSES; 

DATA=SEGMENT=02616, COP©TABLES40, STACKEB68L (BIT LENGTHB10CO0) 
PR OG RA RS P AR AM E T E R f -G oO ¢ * 
FIRSTwEXECUTABLE@INSTRUCTIONEO,0 
INTERPRETER =NAMESCOBNL /INTERP 
STATIC@CORE=9688 BITS 
DYNAMIC@CORE#O PITS 
DATA DICTIONARY STARTS AT CODEFILE SEGMENT 2, 1 ENTRY 
CODE DICTIONARY STARTS AT CODEFILE SEGMENT 10, 1 ENTRY 
FILE PARAMETER BLOCKS START AT CCDEFILE SEGMENT 21, 2 ENTRIES 
PATH DICTIONARY STARTS AT CODEFILE SEGMENT 23, 15 ENTRIES 


LAST ERROR AT SEQUENCE NUMBER ° 
wweww COMPILATION COMPLETE 
FLAPSED TIME : Of MINUTE, S58 SECONDS 
PROGRAM REQUIRES 23 DISK SEGMENTS OF 480 BYTES EACH, 
MEMORY REQUIREMENTS 
0001750 BYTES = LARGEST CODE SEGMENT 
0001211 BYTES = BASE=TO*LIMIT AREA 
0000315 RYTES = DICTIONARIES AND RUN STRUCTURE 
0000505 BYTES = FILE SUFFERS & FILE INFOQ AREAS = INCLUDES 129 BYTES (#72 TO 540 IF DISK) FOR EACK FILE 
0003781 AYTES = ESTIMATED MEMORY REQUIRED TO RUN IF ALL FILES OPEN 
220 SYMBOLIC RECORDS COMPILED AT 111,840 RECORDS PER MINUTE, 


3 WARNINGS 3 SEQUENCE ERRORS, 


Figure H—3. COBOL Program Example (Sheet 11) 


UNIV DATA BASE IDENTIFIERS 


ADDRES 
ADLN 


ADMAD 


ADR 
AGE 
AMIR 
AUTHR 


BOOKS 


BUILDING 
CAMPUS-ADDRESS 
CLASS-SIZE 
CORSES 
COURSENAME 
COURSES 
CRS-NAME 


CRS-NO 


Points to the ADR data set which contains the address of a 
PROFESSOR. 


A record (ALPHA data item) in ADR data set which may contain 
up to nine lines of addresses. 


A subset pointing to the records in ADR that are administrators, 
and are arranged by zip code, social security number sequence. 


A common address file containing address records of students, 
professors, and administrators. 


A NUMERIC data item which contains the age of university 
personnel. 


An ALPHA data item which contains the name of the subject a 
student is taking as a major. 


An ALPHA data item that contains the name of an author of a book 
which is used in a course. 


An embedded data set. Since the quantity of books used in a 
course may vary, an embedded set is defined to avoid specifying 
one occurrence of a field that occurs several times. An embedded 


~ UNORDERED data set is useful when the number of records per 
_ parent record is small. In this case, the parent record is a record in 


UNIV-COURSES. Most courses never use more than two or three 
books. An exception to this would be an English literature course. 


A NUMERIC data item which identifies Bo building on campus 
where a specific course is taught. 


A GROUP data item containing both ALPHA and NUMERIC 


- information of a student’s address. 


A NUMERIC data item with a field length of two digits which 
specifies the number of students currently enrolled in a course. 


An embedded data set within QUARTER data set. Refer to 
QUARTER. Contains records of courses completed during any 
given quarter by a student. 


The name of a course. 


COURSES points to UNIV-COURSES data set, and indicates the 


courses that are taught by a professor. A professor normally 


- teaches a maximum of eight different courses. 


~ A GROUP level item which identifies a record of the UNIV- 


COURSES data set. 


The symbolic key used to retrieve a record in the UNIV-COURSES 
data set. CRS-NO contains the number that has been arbitrarily 
assigned to a course. 


CSET 


DAYS-OF-WEEK 


DEGREE 


DEPARTMENT 


DORM 


DPT 


FACAD 


FACULTY-STUDENT 


FIRSTNAME 


FLAG-BITS 


FNAME 


FRI 

GCRS 

GGD 
GRADE-POINT-AVG 
HOME-ADDRESS 


HOURSCRDT 


LASTNAME 


Enables the retrieval of a record from the CORSES data set. 


A string of digits indicating the days of the week a course is being 
taught. Each digit in the string has a unique name that can be 
referenced as a single-digit number. 


An ALPHA data item indicating the number of degrees (maximum 


limit is 6) a student may have previously earned. Refer to the 
NUMERIC data item ND. 


An ALPHA data item indicating the department within the university 


in the UNIV-COURSES data set. 

An ALPHA data item which is part of a student’s campus address. 
A data item within the UNIV-PERSONNEL data set. This data 
item defines the department of which university personnel are a 


part (Science, Mathematics, or Foreign Language). 


A subset pointing to the records in ADR that are professors, 
and are arranged by zip code, social security number sequence. 


Denotes the type of address record in the ADR data set as follows: 


1. Indicates a student. 
2. Indicates a professor. 


3. Indicates an administrative person. 
An ALPHA data item in the UNIV-PERSONNEL data set which 
contains the first name of a professor. This data item can have a 
maximum length of 10 characters. 
A string of digits that is currently undefined within the data base. 
In the future, the university may want to establish some FLAG 
FIELDS and, at that time, this space could be used. 


An ALPHA data item containing the first name of a student, and 
which is specified to be not greater than 30 characters in length. 


Indicates the course is offered on Friday. 
Points to a record in the UNIV-COURSES data set. 
Grade received for an Undergraduate course. 


Self-explanatory. 


| Points to a record in the ADR data set. See ADR. 


The number of hours of credit that can be earned by successfully 
completing this course. | 


The last name of a professor, and is an ALPHA data item which is 
in the UNIV-PERSONNEL data set. 


H—25 


LC 


LEVEL 


LNAME 
MON | 
MSF 
MSFSET 


NAME 


ND 


NONAM 


NOPROF 
PHON 
PHONE 
POBOX 
PPRGD 


PROFESSOR 


QTRQP 
QTTRHRS 
QUARTER. 


~ RANK 
ROOM 


H—26 


_ Library of Congress number for a book used in a course. 


A numeric item indicating the level of a course, e.g, Graduate, 
Undergraduate, Advanced, or Elementary. : 


Last name of a student. 
Indicates the course is offered on Monday. 


A master file of students. 


| Retrieve a record from the MSF data set, using symbolic key of 
SSNO (Social Security Number). See SSNO. 


This isa GROUP item. It is the name of a person working for the 


university. It is also a key of retrieval. See U-P-SET. 


Number of degrees previously earned by a student. See DEGREE. 


Number of middle names for a student. (Only the first one is 
carried in the data base.) 


The number of different professors that teach a given course. 


Phone number at HOME-ADDRESS. 
Phone number at student’s CAMPUS-ADDRESS. 
Post office box (mail box) of student’s CAMPUS-ADDRESS. 


The grade the student earned ona paper written for a graduate 
course. 


This points to the professor who teaches this course. There will 
typically be a maximum of three professors teaching this course. 


| Quality points which are assigned to graduate course. Quality 


points may be different depending on the student. 
Retrieve a record from QUARTER data set. 


Identifies the quarter. For example, SU72 would be summer of 
1972.. | 


The total quality points earned by formula=grade X HOURSCRDT. 
Grade must be converted to numeric value first. 


The total credit hours successfully completed by student during a 


particular quarter. | | 


An embedded data set embedded within MSF. Contains a record 


for each quarter that a student has attended the university. 


Associate professor, full professor, or department head. © 


Part of student’s CAMPUS-ADDRESS. 


ROOM NUMBER 


SAGE 
SALARY 
SAT 
SEX 
SNO 


SSAD 


SSEX 
SSNO 
SSNUM 


SS-U-P 
STUAD 


SUPR 

THURS 

TITLES 
TITLE-OF-PAPER 
TOTHRS 

TOTQP 

TUES 
TYPECOURSE 
UNIV-COURSES 


UNIV-C-SET 
UNIV-PERSONNEL 


U-P-SET 


This gives the location of where a course is taught (e.g., which 
room in a building). See BUILDING. 


Student’s age. 

Normal remuneration. 

Indicates course is offered on Saturday. 

Male or female. 

Social Security of student administration or faculty number. 


Retrieve a record in ADR data set using symbolic key of SNO. 
See SNO. 


Male or female student. 1 if male student; 0 if female. 
Social Security Number of a student. 


Social Security Number. See also SS-U-P. 


Retrieve a record from UNIV-PERSONNEL using symbolic key of 


SSNUM (Social Security Number). See SSNUM. 


A subset pointing to the records in ADR that are students, and are 


arranged by zip code, social security number sequence. 
Points to supervisor (who is also a professor) of this professor. 
Indicates course is offered on Thursday. 


The title of a book used in a course. 


Descriptive title of paper written by a student for a graduate course. 


The total credit hours student has attended. 
The total quality points earned by a student. 
Indicates course is offered on Tuesday. 
Symbolic key of CORSES data set. See CSET. 
The courses offered by this university. 


Retrieve a record from UNIV-COURSES using CRS-NO as 
symbolic key. 


Data set containing a record for each person working for the 
university. 


Retrieve a record from UNIV-PERSONNEL using symbolic key 
of NAME. See NAME. 


WEDS 
YR 


ZIPC | 


a Indicates the course is offered on Wednesday. 
The year a particular graduate course was taken. 


Zip code for ADR. 
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